|
Posted by =?ISO-8859-1?Q?Une_b=E9vue?= on March 27, 2006, 10:09 am
Please log in for more thread options
new to Perl, i'd like making use of Encode::Guess, however i get an
error message :
Can't locate object method "name" via package "iso-8859-1 or utf8"
(perhaps you forgot to load "iso-8859-1 or utf8"?) at
/Users/yvon/work/Perl/encoding-check/check_files.pl line 26.
iso-8859-1
iso-8859-1
line 26 being :
return $decoder->name;
i don't understand this error message because perl is able to print out
two times $decoder->name giving "iso-8859-1"
i suppose i have to load another module, but which one ?
the whole script being :
-----------------------------------------------------------
#!/usr/bin/perl
use Encode::Guess;
use base qw(Encode::Encoding);
sub guessEncoding
{
my ($fn) = @_;
my $string;
{
local $/;
open F, $fn or die "can't open $file: $!";
$string = <F>;
close F or die "cannot close $file: $!";
}
Encode::Guess->add_suspects('latin1');
my $decoder = Encode::Guess->guess($string);
return $decoder->name;
}
print guessEncoding("apple-mac-roman--ISO-8859-1.html");
print "\n";
print guessEncoding("comparaison-encodages--ISO-8859-1.html");
print "\n";
print guessEncoding("cp1252--UTF-8.htm");
print "\n";
print guessEncoding("Frap--CP-1252.html");
print "\n";
-----------------------------------------------------------
--
une bévue
| 
XML Sitemap