Your skill will accomplish what the force of many cannot |
|
PerlMonks |
Re^2: Simultaneous one by one splitting and processing of an uneven file based on a patternby zing (Beadle) |
on Sep 10, 2012 at 21:55 UTC ( [id://992862]=note: print w/replies, xml ) | Need Help?? |
Yes I did tried these two codes, but they dont cater to the triplet selection perl -ne 'BEGIN{ $/="Processing"; } if(/^\s*(\S+)/){ open(F,">$1.out")||warn"$1 write failed:$!\n";chomp;print F "gi", $_ }'
In Section
Seekers of Perl Wisdom
|
|