Help for this page

Select Code to Download


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

...
open(STDOUT, ">&$fh") or die "Argh: $!";
print "foo bar\nbaz\n";
$fh->close();
  2. or download this
    Argh: Invalid argument at chb.pl line 6.
  3. or download this
    #! /usr/bin/perl -w

...
open(STDOUT, sprintf(">&=%d", $fh->fileno()));
print "foo bar\nbaz\n";
$fh->close();