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

Fri, 17 Dec 2010 06:10:22 -0800 

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"
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить