Jak wyszukać tekst, a następnie wydrukować wynik? - perl, szukaj

Szukam „o”, a następnie wypisuje wszystkie wiersze „o”. Wszelkie sugestie / kody, które muszę złożyć?

data.txt:

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

Pożądane wyjście:

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

Odpowiedzi:

9 dla odpowiedzi № 1

grep o data.txt

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

---

4 dla odpowiedzi nr 2

Jeśli masz grep w swoim systemie, to grep o data.txt z linii poleceń powinno załatwić sprawę.

W przeciwnym razie możesz spróbować Perla:

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

---

1 dla odpowiedzi nr 3

grep "o" data.txt

To pomaga? Nie znam Perla, ale możesz uzyskać ten sam wynik używając powyższego grep.

---

1 dla odpowiedzi nr 4

print if /o/;

---

0 dla odpowiedzi № 5

In Perl:

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

lub z grep:

grep "o" data.txt

---

0 dla odpowiedzi № 6

jako bardzo krótki jednoskładnik:

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

---