|
|
|
| There's more than one way to do things | |
| PerlMonks |
Re: A new question from the front lineby Chmrr (Vicar) |
| on Oct 18, 2002 at 11:44 UTC ( [id://206278]=note: print w/replies, xml ) | Need Help?? |
|
I'd probably do it more or less the same way you did; but for perversity's sake, here's another possibility: perl -ple 'BEGIN{$/="energy";<>;$.--}/.+/;$_=$..$&' filenameperl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||