There is a conflict between using command line option, switch, '-p' which sets up a loop around the '-e' code and using '@lines=<>' which reads the whole file(s), know as a slurp, into the list. A '-p' loop looks like:
LINE:
while (<>) { #readline into $_; diamond operator
...<your '-e' code here>...
}
continue {
print or die "-p destination $!\n";
}
Depending on what you are doing, the following may be better:
perl -pe "last if ($cnt > 50000);$_='' if ($cnt++ < 41900);" data02.lo
+g > data03.log
This one-liner prints record 41900..50000, zero relative. It will end on record 50001, which should let you have the target file a little sooner.
Good luck. -c
|