Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
print "Out=$line";
$line = <ERR>;
print "Err=$line";
  2. or download this
    wperl program > out 2>&1
type out
  3. or download this
    Out=8
Err=10
  4. or download this
    {
    open(my $dummy, "<&STDIN") || open(STDIN, "<", "NUL") || die "open
+ NUL: $!";
}