On Sat, Oct 25, 2008 at 7:37 AM, Jay Hannah
<jay@jays.net> wrote:
A friend of mine asked me for this one yesterday.
Problem:
Given STDIN print everything except the first 2 lines and last 4 lines.
Solution:
while (<>) {
push @in, $_;
}
print splice(@in, 2, @in - 6);
Note this is a terrible solution with large files (memory hog), but works fine on small STDIN.
Cheers,
j
$ cat j
one
two
three
four
five
six
seven
eight
nine
ten
$ cat j | perl j2.pl
three
four
five
six
_______________________________________________
Omaha-pm mailing list
Omaha-pm@pm.org
http://mail.pm.org/mailman/listinfo/omaha-pm