Help for this page

Select Code to Download

Select or download this

eval { $sCodepoints = decode( "iso-8859-1", $sLine, Encode::FB_CROAK )
+ };
if ( $@ )
...
    print "> No ISO-8859-1, maybe UTF8 ?\n";
    $sCodepoints = $sLine;
}

Select or download this

for my $encoding_candidate (qw(iso-8859-1 UTF-8)) {
eval { $sCodepoints = decode( $encoding_candidate, $sLine, Encode::FB_
+CROAK ) };
...
    #$sCodepoints = $sLine;
}
}