Perl regular expression for inconsistent XML attributes

Question

I am trying to write regular expression to capture from value field( string "male") for the two below lines using single regular expression

option selected="selected" value="***male***"

option value="***male***" selected="selected"

i have written some thing like,

option\s*?(?:value="(.+?)" selected="selected")|(?:selected="selected" value="(.+?)")

even though it is matching entire line from the file but "male" string is not captured. Please suggest.

[Mandatory Link](http://stackoverflow.com/a/1732454/3897316) — Degustaf, Nov 13 '14 at 18:54

score 0 · Answer 1 · answered Nov 14 '14 at 10:19

0

local $/; $_ = <DATA>; $match=$_;
my @values;
while($match=~m/value="([^\"]*)"/g)
{
     push(@values, $1);
}
print join "\n", @values;

__DATA__
option selected="selected" value="***male***"
option value="***male***" selected="selected"

answered Nov 14 '14 at 10:19

ssr1012

2,573
1
18
30

While this code-only answer may answer the question, it is usually better to give an explaination in addition to code. – Michael Roland Nov 14 '14 at 10:48
I accepted your comments... Yes I should give an explanation about the code's. – ssr1012 Nov 14 '14 at 11:31

Perl regular expression for inconsistent XML attributes

1 Answers1