How to find all the matched patterns in a variable and writing them to output and a newline character every of matched string?

Question

I have a string variable as

$variable

and I have a pattern as like:

/<OPTION [^>]*>\D*([^<]+)/g

How can I print all the matched strings inside that variable and writing to console a newline character - \n after every matched string with Perl?

fvox · Accepted Answer · 2011-04-13 18:37:45Z

2

I recommend the use of TreeBuilder to parse HTML. You will gain performance if use XPath or the look_down() function.

By the way:

my @arr = $variable =~ /<OPTION [^>]*>D*([^<]+)/g;
for(0 .. @arr - 1) {
    print $arr[$_] . "\n";
}

answered Apr 13, 2011 at 18:37

fvox

1,0856 silver badges8 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

tadmc · Accepted Answer · 2011-04-13 18:15:03Z

1

You should use a module for processing HTML data. If you insist on doing it The Wrong Way:

print join("\n", $variable =~ /<OPTION [^>]*>\D*([^<]+)/g), "\n";

answered Apr 13, 2011 at 18:15

tadmc

3,74518 silver badges14 bronze badges