Hi, here's what I'm trying to do :
my @row = ('col1 : line1
col2 : line2',
'col2',
'col3 f1 col3 f2',
'col4',
'col5:line1
col5:line2',
'coll6 : line1,line1
coll6 : line2,line2
coll6 : line3,line3
coll6 : line4,line4'
);
my $f = "format = \n"
. ('^*' . '|') x scalar(@row) . "~~\n"
. '@row' . "\n"
. ".\n";
eval($f);
write;
want desired result as :
col1:line1|col2|col3 f1 col3 f2|col4|col5:line1|col6: line1,line1
col2:line2||||col5:line2|col6:line2,line2
|||||col6:line3,line3
|||||col6:line4,line4
but running the code gives: Out of memory!
|