in reply to Extract lines and output...

I usually use the unix command-line for stuff like this:

head -4 *.txt | \
perl -pe '/==>\s(.*)\s<==/ ? ($f, $_) = ($1, undef) : $_ = "$f: $_";' \
>> output_filename

Replies are listed 'Best First'.
Re: Re: Extract lines and output...
by airblaine (Acolyte) on Oct 10, 2001 at 19:00 UTC
    Perfect! Thanks all! A big help and learned alot! Perl rules!
[reply]

In Section Seekers of Perl Wisdom