如何找出Perl替换中被替换的内容？

Question

在应用s///运算符后,有没有办法找出替换("旧"文本)的内容？我试过做:

if (s/(\w+)/new/) {
    my $oldTxt = $1;
    # ...
}

但这不起作用.$1未定义.

Answer 1

你的代码适合我.从真实的终端窗口复制并粘贴:

$ perl -le '$_ = "*X*"; if (s/(\w+)/new/) { print $1 }'
X

你的问题必须是别的.

Answer 2

如果您使用的是5.10或更高版本,则不必使用潜在的性能消除$&.${^MATCH}来自/p标志的变量执行相同的操作,但仅适用于指定的正则表达式:

 use 5.010;

 if( s/abc(\w+)123/new/p ) {
      say "I replaced ${^MATCH}"
      }