在 perl 中只打印匹配的字符

Question

如果我只想用 Perl 打印匹配的字符，是否有 Perl 单行。例如我有一个这样的文本文件：

data.txt
foo1 bar baz
foo2 bar baz
bar foo3 baz
bar baz foo4

我尝试了以下但没有输出：

perl -ne '/foo\d/ && print "$1"' data.txt

Answer 1

$1 包含与第一个捕获组匹配的部分，但您的正则表达式中没有捕获组。

使用$& 获取与整个模式匹配的所有内容。

perl -ne '/foo\d/ && print "$&"' data.txt