我试图找到匹配某个模式的字符串,然后是该模式的反向转换,然后用字母O分隔.
@H_403_26@解决方法
翻译规则是/ ABC / XYZ.
匹配示例：CCBAOXYZZ
第一部分匹配模式[ABC] {3,25}.然后有一个字母O也匹配.然后我们看到XYZZ与CCBA相反,并且应用了上述转换.
我设法将tr规则写入我的反向引用.但我也无法弄清楚如何做反向.
while (my $input_string = <sample_input>) {
push @hit,$1 while $input_string
=~ m{
(([ABC]{3,25})
O
(??{ $2 =~ tr/ABC/XYZ/r}))
}xg;
}
以这种方式将’反向’函数添加到正则表达式的第三行是否正确：(?? {$2 = ~tr / ACGT / TGCA / r; reverse}))？
我如何匹配$2的反向tr？
你的tr /// r返回音译字符串.所以你只需要在tr /// r前面坚持反向,你就可以了.
push @hit,$1 while $input_string
=~ m{
(([ABC]{3,25})
O
(??{ reverse $2 =~ tr/ABC/XYZ/r }))
}xg;
tr /// r的返回值不会进入$_,所以;反向将反转$_中的任何内容.这使得整体比赛失败.
你实际上在最后一句话中回答了你自己的问题.
How do I do the match the reverse tr of $2?
如果你是add use re 'debug',你可以看到匹配的实际模式.
用tr ///;反向,调试输出的第二部分,与eval编译的正则表达式有关,是：
... Compiling REx "ZZYXOABCC" Final program: 1: EXACT <ZZYXOABCC> (5) 5: END (0) anchored "ZZYXOABCC" at 0 (checking anchored isall) minlen 9 Matching embedded REx "ZZYXOABCC" against "XYZZ" ...
正如我们在这里看到的,它将完整的字符串作为匹配的第二部分,在O之后.它正确地反转了字符串的左侧,但它返回了完整的字符串.
现在,如果我们将其与反向tr /// r进行比较,我们就会看到差异.
... Compiling REx "XYZZ" Final program: 1: EXACT <XYZZ> (3) 3: END (0) anchored "XYZZ" at 0 (checking anchored isall) minlen 4 Matching embedded REx "XYZZ" against "XYZZ" ...
它现在只返回字符串的音译左侧,然后匹配.