Help for this page

Select Code to Download


  1. or download this
    open (OUT, '>', $outfile') || ...

and 

open (IN, '<' $_) || ...
  2. or download this
    if (! @ARGV) {
    print "Usage: $0 output input1 input2 ...\n";
    exit -1;
}