Perl不一致XML属性的正则表达式

Question

我正在尝试使用单个正则表达式编写正则表达式以从下面两行的值字段（字符串“male”）中捕获

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

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

我写过一些像

这样的东西

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

即使它匹配文件中的整行，但未捕获“男性”字符串。请建议。

Answer 1

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"