perl - 如何搜索文本然后打印结果？

Question

我正在搜索“o”，然后用“o”打印所有行。我必须申请的任何建议/代码？

数据.txt：

j,o,b:
a,b,d:
o,l,e:
f,a,r:
e,x,o:

所需的输出：

j,o,b:
o,l,e:
e,x,o:

Answer 1

grep o data.txt

perl -ne 'print if (/o/);' <data.txt

Answer 2

如果您的系统上有 grep，那么grep o data.txt从命令行应该可以解决问题。

如果做不到这一点，你可以试试 Perl：

open IN, 'data.txt';
my @l = <IN>;
close IN;
foreach my $l (@l) {
   $l =~ /o/ and print $l;
}

Answer 3

grep "o" data.txt

这有帮助吗？我不知道 Perl，但你可以使用上面的 grep 获得相同的输出。

Answer 4

print if /o/;

Answer 5

作为一个非常短的单行：

> perl -pe'$_ x=/o/' filename

Answer 6

在 Perl 中：

while (<>) { print if /o/; }

或使用 grep：

grep 'o' data.txt