in reply to Regex, how to pull out multiple matches per line into array?
#!/usr/bin/perl use warnings; use strict; my @inarr = ( 'stuff{tag}<igo;123>stuff<ig;abc>', '<igt;ddd>stuff blah {foo}', 'stuff blah foo <igxo;dsldkd.eps>', '<igt;aaa>stuff blah <igx;hhh>', ); my $re = qr/( < (?: ig | igt | igo | igxo ) ; .+? > )/x; for my $lin (@inarr) { my @g = $lin =~ m/$re/g; print join ' ', map "[$_]", @g; print "\n"; }
|
|---|