Aditi Gupta wrote:
Hi Perlers,

Hello,

I have a file as follows:

#block1
aaa
aaa

#block2
bbb
bbb

#block3
ccc
ccc

and i want to append(or i should say merge) these blocks and get a file like this:

aaabbbccc
aaabbbccc

how can this be done using perl?
please help..


$ echo "
aaa
aaa

bbb
bbb

ccc
ccc
" | perl -l -00ne'my $i; $x[ $i++ ] .= $_ for split /\n/ }{ print for @x'
aaabbbccc
aaabbbccc



John
--
use Perl;
program
fulfillment

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to