regex - 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