参见英文答案 >
How can I extract the nth occurrence of a match in a Perl regex? 7个
我的输入数据如下.我想把这个词分组在 – 的第6和第7位之间.
我的输入数据如下.我想把这个词分组在 – 的第6和第7位之间.
my $sa = "a1a1a1-b1b1b1-c-ddd-eee-fff-gggggg-hHhH-iiii-j-KKKKK";
为此,实际的正则表达式是
/[^-]+-[^-]+-[^-]+-[^-]+-[^-]+-([^-]+)-/
为了构建正则表达式,我尝试如下,
my $avc = "[^-]+-" x 5 . "([^-]+)-"; my $ar = qr"$avc"; $sa =~m/$ar/g; print $1;
我怀疑,正则表达式中是否有任何选项可用.不使用x.我怎么能在一个正则表达式中做到这一点？
