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