Re: How to remove [], {}, and other characters, rendering numeric values in a CSV file ?
- From: krahnj@xxxxxxxxx (John W. Krahn)
- Date: Thu, 26 Jun 2008 14:59:10 -0700
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
.
- References:
- Prev by Date: Re: How to remove trailing commas and points from a CSV file ?
- Next by Date: Re: How can I translate it back to @ sign.
- Previous by thread: Re: How to remove [], {}, and other characters, rendering numeric values in a CSV file ?
- Next by thread: Check if directory is empty on Win32
- Index(es):
Relevant Pages
|
