Parsing in regular expression

[sam]

Hi,

The following pattern does not return all the values, the pattern only
able to parse the first two fields:

my $test = "01-, Revlon, n/a, Revlon";
$test =~
/^([0-9]*-), #prefix 1
(.*), #vendor 2
(.*), #Category 3
(.*) #basename 4
/x;

if ($1 eq "" or $2 eq "" or $3 eq "") {
print "Failed to parse $test\n";
} else {
# get the value
}

What should be the correct implementation of this pattern?
Thanks
Sam

 

[Arndt Jonasson]

The following pattern does not return all the values, the pattern only
able to parse the first two fields:

my $test = "01-, Revlon, n/a, Revlon";
$test =~
/^([0-9]*-), #prefix 1
(.*), #vendor 2
(.*), #Category 3
(.*) #basename 4
/x;

if ($1 eq "" or $2 eq "" or $3 eq "") {
print "Failed to parse $test\n";
} else {
# get the value
}

It works for me - I get the respective fields in all $1-$4.
" n/a" in $3, in particular. What do you get in $3?

It's better to test the match itself for success:
if ($test =~ ...)
but that doesn't explain why the match doesn't work for you.

 

[Tad McClellan]

The following pattern does not return all the values, the pattern only
able to parse the first two fields:

my $test = "01-, Revlon, n/a, Revlon";

What should be the correct implementation of this pattern?

my @fields = split /,\s*/, $test;