Как мне найти текст и распечатать результат?

Question

Я ищу "o", а затем печатаю все строки с "o". Любое предложение / код, который я должен применить?

data.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

print if /o/;

Answer 4

grep "o" data.txt

Это помогает? Я не знаю Perl, но вы можете получить тот же вывод, используя приведенный выше grep.

Answer 5

как очень короткий однострочный:

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

Answer 6

В Perl:

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

или с помощью grep:

grep 'o' data.txt