perl - 如何保存您在 perl 中搜索的模式

Question

if ($_=~m/^[\w](.+)\n/)
{
   $seq.= $1;
}

我正在使用这种模式来识别字符序列，但我还想包含第一个字符（[\w]）

标签： perl

Answer 1

如果要包含第一个字符，请将其包含在正则表达式的捕获部分中：

$seq .= $1 if /^(\w.+)\n/;