Hi Perlers,

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..

regards
Aditi

Aditi Gupta wrote:

If I was doing this I would split the file on the gaps between blocks
and the use the unix paste function to assemble the blocks.

&> paste A B C > D

? using a hash of arrays (HOA) to store each block and then go back over
the HOA each element at a time ... although this is probably overkill?

On Wed, 2005-06-22 at 09:10 -0500, Larsen, Errin M HMMA/IT wrote:

Hi all,

I know the terms of the list.. and before this i have always written a code
and asked for a doubt if it doesn't work... but this time i'm not aware of
any way to do the job.. thats why i asked to help me out, I haven't asked
for any code, just hints what can be used. I'm sorry if i gave the wrong
impression, i was expecting guidelines, not code.

regards,
aditi

On 6/22/05, Larsen, Errin M HMMA/IT <[Email Removed]> wrote:

HI Dan,

Since i'm using activestate perl on windows xp i don't know whether paste
will work or not.
I'll try the hash of array.

Thanks for the help

regards
Aditi.

On 6/22/05, Dan Klose <[Email Removed]> wrote:

On 6/22/05, Aditi Gupta <[Email Removed]> wrote:

On 6/22/05, Dan Klose <[Email Removed]> wrote:

Aditi Gupta wrote:

hello everybody,

first of all i'd like to thank all of you for your time and help.. but i'm
still stuck!!

The code which Dave sent:

my @blocks = ();
my $maxlen = 0;
while (<DATA>) {
chomp;
if (/^#/) {
push @blocks, [];
} elsif ($_) {
push @{$blocks[$#blocks]}, $_;
my $len = $#{$blocks[$#blocks]};
$maxlen = $len if $len > $maxlen;
}
}

I couldn't understand the line my $len = $#{$blocks[$#blocks]};
i referred to the programming perl book, i didn't understood why $# was used
twice..

and in the John's mail..

$ echo "
aaa
aaa

bbb
bbb

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

I didn't understood the " | perl -l -00 " part.. please explain what is
means..

Since i'm not good in using comples data structures, i obtained the
different blocks in differernt text files using the following code:

---------------------------------------------------------------------------
#!perl/bin/perl -w

use strict;

my $n = 7;
my $count=0;
my @aoa;
my $file = "out.txt";
open (FH, $file) or die "couldn't open $file:$!";
while (<FH>)
{
push @aoa, [split/n/];
}
print "n No.of rows: $#aoa";

my $last_val= ($#aoa/$n);
my $lv = sprintf ("%.0f", $last_val);
print "last val: $lv";

for(my $f=1;$f<$lv;$f++)
{
$file = "$f.txt";
open (OF, ">$file") or die "couldn't open $file:$!";
for my $i ($count..($n+$count))
{
my $j=0;
#{
print OF "$aoa[$i][$j]n";
$count++;
#}
}

}


----------------------------------------------------------------------
But I want to do it using the complex data structures. Hence, please explain
the points which I couldn't understand.

Thanks again,
with regards,

Aditi


On 6/23/05, John W. Krahn <[Email Removed]> wrote:

Aditi Gupta wrote: