Help for this page

Select Code to Download


  1. or download this
    open INFILE,  "<" . $filename 
     or die "Couldn't open file " . $filename . " for reading : $!";
...
}
close INFILE;
close OUTFILE;
  2. or download this
    open INFILE,  "<" . $filename 
     or die "Couldn't open file " . $filename . " for reading : $!";
...
}
close INFILE;
close OUTFILE;
  3. or download this
    perl -ni.old -e "print $_ unless $_{$_}++" foo.txt