Erasmo Perez wrote:
Hi dear list:
Hello,
Thank you very much for you great help in solving my past issue,
regarding the removing of the trailing commas and points.
Thank you very much indeed :-)
Now, my last (I hope) issue.
I got another text file in the following format:
cluster[1] = { 2 3 4 8 10 14 }
cluster[2] = { 25 26 29 32 }
cluster[3] = { 1 5 6 7 11 12 13 17 18 22 }
cluster[4] = { 9 19 21 23 24 27 28 30 31 33 34 }
and I need to tranform it in a new CSV file that starts each line with
the "cluster" value (the square-brackets enclosed value), followed by
its {}-bracket enclosed list values (in the same order), as is shown
below:
1,2,3,4,8,10,14
2,25,26,29,32
3,1,5,6,7,11,12,13,17,18,22
4,9,19,21,23,24,27,28,30,31,33,34
How could I accomplish it using Perl ?
$ perl -le'
my @x = (
"cluster[1] = { 2 3 4 8 10 14 }",
"cluster[2] = { 25 26 29 32 }",
"cluster[3] = { 1 5 6 7 11 12 13 17 18 22 }",
"cluster[4] = { 9 19 21 23 24 27 28 30 31 33 34 }",
);
for my $line ( @x ) {
print $line;
print join ",", $line =~ /\d+/g;
}
'
cluster[1] = { 2 3 4 8 10 14 }
1,2,3,4,8,10,14
cluster[2] = { 25 26 29 32 }
2,25,26,29,32
cluster[3] = { 1 5 6 7 11 12 13 17 18 22 }
3,1,5,6,7,11,12,13,17,18,22
cluster[4] = { 9 19 21 23 24 27 28 30 31 33 34 }
4,9,19,21,23,24,27,28,30,31,33,34
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
