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

パールでは:

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

またはgrepで：

grep 'o' data.txt

Answer 6

非常に短いワンライナーとして：

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