Help for this page

Select Code to Download


  1. or download this
    warn PerlIO::get_layers($handle{$file});
  2. or download this
    my @l = grep /utf-?8/, PerlIO::get_layers($handle{$file});
warn @l / 2;
  3. or download this
            binmode $fh, ':raw:encoding(UTF-8)';
  4. or download this
              Rate   close noclose
close   2137/s      --    -28%
noclose 2951/s     38%      --