splitting regex

[MoshiachNow]

HI,
Having a line like :

NodeList"="YCS1470-685;YCS1472-685;YCS1471-685;YCS1473-685"

Need to split it into an array containing:

YCS1470-685 YCS1472-685 YCS1471-685 YCS1473-685

The line may contain more then 4 values.
Thanks in advance

Long live king Moshiach !

http://www.7for70.com/

 

[mbrooks]

#!/usr/bin/perl

use strict;

my $node_str="YCS1470-685;YCS1472-685;YCS1471-685;YCS1473-685";
my @node_ary = split( /\;/, $node_str );

for (@node_ary) {        
    print $_ . "\n";
}

M. Brooks

http://mbrooks.info

 

[MoshiachNow]

Thanks,

but the full string is:

my $node_str = NodeList"="YCS1470-685;YCS1472-685;YCS1471-685;YCS1473-685"


Long live king Moshiach !

http://www.7for70.com/

 

[MoshiachNow]

actualy:

my $node_str = \"NodeList\"=\"YCS1470-685;YCS1472-685;YCS1471-685;YCS1473-685\""


Long live king Moshiach !

http://www.7for70.com/

 

[mbrooks]

Before I go any further I must ask, what generated the string below?

NodeList"="YCS1470-685;YCS1472-685;YCS1471-685;YCS1473-685"

Is this from CGI parameter input? Output from a file? Just curious.

M. Brooks

http://mbrooks.info

 

[Kirsle]

$node_str =~ s/"//g; # remove quotes
my (@node_ary) = split (/\;/, (split(/=/, $node_str))[1]);

-------------
Cuvou.com | The NEW Kirsle.net

 

[rharsh]

Another way:

my $node_str = 'NodeList"="YCS1470-685;YCS1472-685;YCS1471-685;YCS1473-685"';
$node_str =~ m/="([^"]+)"/;
my @a = split ';', $1;

 

[MoshiachNow]

Thanks to all. Mbrooks this is a result of "registry -e" command on Windows,just dumping registry.
Thanks

Long live king Moshiach !

http://www.7for70.com/