[Moscow.pm] Подскажите пожалуйста, как определить кодировку файла? Надо уметь различать UTF-8, cp1251. Encode::Guess не детектит cp1251.

[Evgeniy Kosov]

On 17.12.2010 16:17, Dmitry Arsentiev wrote:
> Вот код.
> #!/usr/bin/perl
> use strict;
> use warnings;
> use Encode;
> use Encode::Guess;
>
> my $filename = "kmm157.txt";
> open my $fh, "<", $filename or die "can not open file $filename for reading \n";
> my $data = do{ local $/;<$fh>  };
> close $fh;
>
> my $enc = guess_encoding( $data, qw/euc-jp shiftjis 7bit-jis utf-8
> ascii cp1251/ );
>
> print "enc = $enc\n";

- print "enc = $enc\n";
+ print "enc = ", $enc->name, "\n"