Help for this page

Select Code to Download


  1. or download this
    use stritct;
use Tie::File;
tie my @lines, Tie::File, $infile;
delete $lines[-1];
  2. or download this
    Bareword "Tie::File" not allowed while "strict subs" in use