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

[Dmitry Arsentiev]

17 декабря 2010 г. 16:35 пользователь Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯 <daxim на cpan.org> написал:
> <http://mail.pm.org/pipermail/moscow-pm/2010-September/008979.html>


Thank you, Lars, Encode::Detect::Detector successfully worked!


#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use Archive::Tar;
use Encode::Detect::Detector;


my $filename = "RDG_2010_0000_0001_0037.xml";
open my $fh, "<", $filename or die "can not open file $filename for reading \n";
my $data = do{ local $/; <$fh> };
close $fh;

# this code snippet works
my $charset = Encode::Detect::Detector::detect( $data );
print "charset = ".$charset."\n";

# and this code snippet works too
my $d = Encode::Detect::Detector->new();
$d->handle($data);
print "charset = ".$d->getresult()."\n";


17 декабря 2010 г. 16:35 пользователь Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯 <daxim на cpan.org> написал:
> <http://mail.pm.org/pipermail/moscow-pm/2010-September/008979.html>
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
>