I love unix:#!/usr/bin/perl -w use strict; my $found = 0; while (<>) { if ($found or /RE(.*?)/) { $found = 1; print; } }
[ar0n@zendo perl]$ perl re.pl < INPUT > OUTPUT
In reply to (ar0n) Re: File editing
by ar0n
in thread File editing
by Jonathan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |