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

Fri, 17 Dec 2010 05:17:56 -0800 

Здравствуйте.

Может ли кто-нибудь подсказать, каким модулем лучше детектить кодировку?
Попробовал Encode::Guess - не получается определить cp1251.
Считаем. что есть три кодировки: UTF-8, сз1251 и "неправильная кодировка" ;)

Скрипт возвращает вот что:
enc = Encode::XS=SCALAR(0x81e2724)

Вот код.
#!/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";
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить