Help for this page

Select Code to Download


  1. or download this
    open(my $fh, '<', $filename);
binmode($fh);
  2. or download this
    open(my $fh, '<:raw', $filename);
  3. or download this
    $, = ' ';
$\ = "\n";

open(FH, '<', '/dev/null');
print(PerlIO::get_layers(FH));          # --> unix perlio
  4. or download this
    open(FH, '<', '/dev/null');
binmode(FH);
print(PerlIO::get_layers(FH));          # --> unix perlio
  5. or download this
    open(FH, '<:raw', '/dev/null');
print(PerlIO::get_layers(FH));          # --> unix