Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl 
open INFILE, "$ARGV[0]";
...
print OUTFILE $_;
for (@file) { print OUTFILE $_ }
close OUTFILE;
  2. or download this
    #!/usr/local/bin/perl
open INFILE, "$ARGV[0]";
...
print OUTFILE $_;
for (@file) { print OUTFILE $_ }
close OUTFILE;