Storing submatches in an array?

[ematiu]

Hello list,

I have a regex in a variable, with an unknown number of submatches.
When I apply this regex to a string, how can I obtain all the
submatches in a array?

The submatches are returned in $1, $2 ..., but how can I know how many
are in total?

For example, if the number of submatches is 2:
$r='uid=(\d+).*groups=(\d+).*';
$str= `id`;
$str=~ /$r/;
@submatches=($1,$2);

but, now if
$r='uid=(\d+).*';
$str= `id`;
$str=~ /$r/;
@submatches=($1,$2); # how can I make this general??

Thanks!!

matías

 

[usenet]

but, now if
$r='uid=(\d+).*';
$str= `id`;
$str=~ /$r/;
@submatches=($1,$2); # how can I make this general??

(@submatches) = ($str =~ /$r/);

Note the paren's around the first term.

 

[usenet]

(@submatches) = ($str =~ /$r/);
Note the paren's around the first term.

Actually, paren's aren't needed, since it's already an array. I was
thinking of usage like:
($var1, $var2) = ($str =~ /$r/);

in which paren's are needed.

 

[Gunnar Hjalmarsson]

(@submatches) = ($str =~ /$r/);

Note the paren's around the first term.

What about them?

@submatches = $str =~ /$r/;

works just as fine.

 

[ematiu]

Thanks everyone!

matías

 

[Dr.Ruud]

(e-mail address removed):

Thanks everyone!

Replying in Google Groups:
http://www.safalra.com/special/googlegroupsreply/

 

[Sherm Pendley]

I have a regex in a variable, with an unknown number of submatches.
When I apply this regex to a string, how can I obtain all the
submatches in a array?

Just assign the results of the match to the array. The matching operator,
when used in list context, returns a list of matched sub-expressions instead
of a simple true/false scalar.

For example, if the number of submatches is 2:
$r='uid=(\d+).*groups=(\d+).*';
$str= `id`;
$str=~ /$r/;
@submatches=($1,$2);

my @submatches = $str =~ /$r/;

Have a look at "perldoc perlre" and/or "perldoc perlretut".

sherm--

 

[James]

Hello list,

I have a regex in a variable, with an unknown number of submatches.
When I apply this regex to a string, how can I obtain all the
submatches in a array?

The submatches are returned in $1, $2 ..., but how can I know how many
are in total?

my @a = split /$re/, $string;
print "@a";


James

 

[Paul Lalli]

my @a = split /$re/, $string;
print "@a";

That would return a list of all parts of $string that did NOT match
/$re/. I don't believe that's what the OP asked for.

Paul Lalli

 

[John W. Krahn]

I have a regex in a variable, with an unknown number of submatches.
When I apply this regex to a string, how can I obtain all the
submatches in a array?

The submatches are returned in $1, $2 ..., but how can I know how many
are in total?

For example, if the number of submatches is 2:
$r='uid=(\d+).*groups=(\d+).*';
$str= `id`;
$str=~ /$r/;
@submatches=($1,$2);

but, now if
$r='uid=(\d+).*';
$str= `id`;
$str=~ /$r/;
@submatches=($1,$2); # how can I make this general??

For the UID use the $< variable and for the GID use the $( variable. To get
the user name from the UID use getpwuid( $< ) in scalar context and to get the
group name from the GID use getgrgid( $( ) in scalar context.

perldoc perlvar
perldoc -f getpwuid
perldoc -f getgrgid



John