Як шукати текст, потім роздрукувати результат? - perl, пошук

Я шукаю "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:

Відповіді:

9 для відповіді № 1

grep o data.txt

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

---

4 для відповіді № 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;
}

---

1 для відповіді № 3

grep "o" data.txt

Чи допомагає це? Я не знаю Perl, але ви можете отримати такий же вивід, використовуючи вищеописаний grep.

---

1 для відповіді № 4

print if /o/;

---

0 для відповіді № 5

У Perl:

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

або з grep:

grep "o" data.txt

---

0 для відповіді № 6

як дуже короткий лайнер:

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

---