The problem is I can't post the whole script, because it's not allowed in our company.
You don't have to post the whole script, simply post something sequivalent that demonstrates the problem you encounter -- replicate the problem with fewer lines of code
So far its all been syntax errors
Here is what I "wrote" by copy/pasting from http://p3rl.org/Encode::Detect::Detector
__END__ **SCALAR(0x3f8fac) gots *UTF-8* </c>#!/usr/bin/perl -- use strict; use warnings; use Encode::Detect::Detector; use autodie qw/ open /; my $octets = 'abc'.chr(266).chr(666); my $filename = shift || \$octets; open my($infh), '<:raw', $filename ; my $d = new Encode::Detect::Detector; while(my $line = readline $infh ){ $d -> handle( $line ); } $d -> eof; close $infh; my $charset = $d->getresult; print "**$filename gots *".$charset."*\n";
In reply to Re^5: Detect the Charset of an file
by Anonymous Monk
in thread Detect the Charset of an file
by endymion
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |