using map to create an array 1

[MoshiachNow]

HI,

I need to split a line of data into an array (data sits in $_):
"08/26/2008","0.000000","4.000000","332.000000"

tried:
@nameX = map { s/.*\((.*?)\)/$1/ } split /,/,$_ ;

My array needs to be :
08/26/2008 0.000000 4.000000 332.000000
I get an empty array...

Will appreciate ideas.
thanks

Long live king Moshiach !

http://www.noahide.com

 

[tchatzi]

there are two ways of doing this.. no map needed

1.

use strict;
use Text::CSV;
my $csv = Text::CSV->new ();
my $string = qq["08/26/2008","0.000000","4.000000","332.000000"];
my $status = $csv->parse($string);
my @columns = $csv->fields();
foreach ( @columns ) {
  print "$_\n";
}


the result is the following

08/26/2008
0.000000
4.000000
332.000000

2.

use strict;
my $string = qq["08/26/2008","0.000000","4.000000","332.000000"];
$string =~ s/^"//;
$string =~ s/"$//;
my @columns = split '","', $string;
foreach ( @columns ) {
  print "$_\n";
}


the result is the following

08/26/2008
0.000000
4.000000
332.000000

``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI

 

[MoshiachNow]

Thanks,

I new how to do it the second way,just was sure it can be a one liner with "map" ...

Long live king Moshiach !

http://www.noahide.com

 

[ishnid]

It certainly can be done in a one-liner with 'map'. Using Text::CSV is far more robust, however. For instance, what if there's a comma in one of your fields (i.e. between the quotes)? Using 'split' and 'map' would fail in that circumstance.

 

[prex1]

The fastest should be
[tt]@nameX=map{substr($_,1,-1)}split/,/;[/tt]
otherwise
[tt]@nameX=map{s/"//g;$_)}split/,/;[/tt]
or even (very slow)
[tt]@nameX=map{eval}split/,/;[/tt]
However I agree that you should be certain of what is in your data, before using the above.

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[tchatzi]

sorry mate...I didn't know you wanted it in one line..
there you go

$string = qq["08/26/2008","0.000000","4.000000","332.000000"];
@columns = map {  s/^"//; $_ }  map {  s/"$//; $_ } split  ',', $string;

``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI

 

[MoshiachNow]

Thanks to all,

and if I wanted to fill the array with text between the ( ) barckets (processname) :

"(PDH-CSV 4.0)","\\pps01\Process(Idle)\ID Process","\\pps01\Process(System)\ID Process"

how would the one liner look ?
thanks



Long live king Moshiach !

http://www.noahide.com

 

[tchatzi]

I'm not sure if I follow...do you want the result to be
@columns = ('PDH-CSV 4.0','Idle','System')

if yes then the following will do the job...

$string = qq["(PDH-CSV 4.0)","\\pps01\Process(Idle)\ID Process","\\pps01\Process(System)\ID Process"];
@columns = map {  /\((.*?)\)/; $1 } split  ',', $string;

if you mean something else..then please be more specific with samples and examples


``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI

 

[MoshiachNow]

thanks,got it now.

Long live king Moshiach !

http://www.noahide.com