http://qs1969.pair.com?node_id=688307


in reply to Getting a list of captures in Perl 5.10

Without using any of the 5.10 features you can do:

$string = 'bla bla [[en:English]][[de:German]][[ga:Irish]] bla bla'; %matches = $string =~ m/\[ \[ ( en|de|ga ) : (.+?) \] \]/gx; $var = { lang => [ keys %matches ] }; pp $var; { lang => ["en", "ga", "de"] }

But that makes me wonder why you are capturing the longnames just to throw them away?

If you remove the capture for those you can do:

my $string = 'bla bla [[en:English]][[de:German]][[ga:Irish]] bla bla' +; my $var = { lang => [ $string =~ m/\[ \[ ( en|de|ga ) : .+? \] \]/gx ] + }; pp $var; { lang => ["en", "de", "ga"] }

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.