Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

use Encode qw(all);
...
# Something is seriously wrong if we get to here
 return encode($ENC_ASCII, $text, undef);
  2. or download this
    # IO layer: $handle now decodes all strings upon reading
open my $handle, '<:encoding(UTF-8)', $file;
  3. or download this
    binmode $handle, ':encoding(UTF-8)';