Help for this page

Select Code to Download


  1. or download this
    LINE:
while (<>) { #readline into $_; diamond operator
...
continue {
    print or die "-p destination $!\n";
}
  2. or download this
    perl -pe "last if ($cnt > 50000);$_='' if ($cnt++ < 41900);" data02.lo
+g > data03.log