索引函数中的正则表达式

Question

我在文本文件中寻找"CCGTCAATTC(A | C)TTT(A | G)AGT"的出现.

$text = 'CCGTCAATTC(A|C)TTT(A|G)AGT'; if ($line=~/$text/){ chomp($line); $pos=index($line,$text); }

搜索工作正常,但我无法获得"文本"的位置.似乎索引不接受正则表达式作为子字符串.

我怎样才能做到这一点.谢谢

Answer 1

该@-数组保存上次成功匹配的起始位置的偏移量.第一个元素是整个匹配模式的偏移量,后续元素是带括号的子模式的偏移量.所以,如果你知道有匹配,你可以得到它的偏移量$-[0].