Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
    my $encoding = get_encoding_from_filehandle(FH);
    print $encoding . "\n\n";
    
  2. or download this
    use Encode::Guess;
    my $decoder = guess_encoding($arg->{String}, 'latin1');
    ...
    } else {
        return 1;
    }