regex - 如何在数据的位置打印匹配的字符串？

Question

我试图在数据位置打印匹配的字符串，我该怎么做？

$at ="at";
@ar = <DATA>;
@xxv = map(m/$at/g, @ar);
print "@ar";
print @xxv;
print "\n";
__DATA__
atgacaagcagacccaggggatacgat

我期望的输出是

    atgacaagcagacccaggggatacgat
    at                  at   at

Answer 1

通过s///获取想要的输出

$at ="at";
$ar = <DATA>;
print $ar;
$ar =~ s/$at(*SKIP)(*F)|./ /g;
print $ar;
__DATA__
atgacaagcagacccaggggatacgat

输出:

atgacaagcagacccaggggatacgat
at                  at   at

$at(*SKIP)(*F) 扩展变量 $at 并将存储在变量中的同一组字符与输入字符串匹配。跟随 (*SKIP)(*F) 会导致匹配失败并强制 | 右侧的模式与其余字符匹配。所以 . 匹配除被跳过的字符之外的所有字符。用空格替换那些匹配的字符将为您提供所需的输出。

引用资料:

• http://perldoc.perl.org/perlre.html

• How do (*SKIP) or (*F) work on regex?