Печатайте только совпадающие символы в 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