|
|
|
| We don't bite newbies here... much | |
| PerlMonks |
Re: file alterationby FreeBeerReekingMonk (Deacon) |
| on Apr 14, 2015 at 17:50 UTC ( [id://1123431]=note: print w/replies, xml ) | Need Help?? |
|
That was fun: Here is a oneliner that does what you want: perl -ne 'chomp; if (s/^A$// .. ($m=s/^B$//)){if($m){ print "A\n$p\B\n" if $p;$p=""}else{$p.=$_."\n" if $_} } ' datafilesee trick nr4 on https://blogs.oracle.com/ksplice/entry/the_top_10_tricks_of
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||