Help for this page

Select Code to Download


  1. or download this
    my $encodings_test = 'ascii cp1252 cp437 cp850 iso-8859-1 utf-8-strict
+ utf8';
my $decoder = guess_encoding($data, qw/$encodings_test/);
print "decoder: $decoder\n";
  2. or download this
    my @encodings_test = qw(ascii cp1252 cp437 cp850 iso-8859-1 utf-8-stri
+ct utf8);
my $decoder = guess_encoding($data, @encodings_test);
  3. or download this
    my $encodings_test = 'ascii cp1252 cp437 cp850 iso-8859-1 utf-8-strict
+ utf8';
my @encodings_test = split /\s+/, $encodings_test;
my $decoder = guess_encoding($data, @encodings_test);
print "decoder: $decoder\n";