🚀 go-pugleaf

W artykule tomjas napisał(a):

>> Nieeleganckie jest dlatego, że @plik może ci bardzo urosnąć, poza tym
>> nie do końca ten kod jest zgodny z pytaniem oryginalnym.
>>
> No wiec jak to zrobic w bardziej elegancki i cywilizowany sposob? Bo
> jednak perl stanowi dla mnie caly czas czarna magie.
>> Ja to zrozumiałem tak: wypisać wszystkie linie od początku pliku do
>> pierwszego wystąpnienia /vert/; pozostałe pominąć.
>>
> Interesuje mnie kazda linia, PO ktorej wystepuje linia zawierajaca
> ciag "vert".

No skoro interesuje Cię 1 linia poprzedzająca to raczej nie ma sensu
pamiętać wszystkich, nie?

#v+
#!/usr/bin/perl

use strict;
use warnings FATAL => qw( all );

my $previous="";

while (<STDIN>) {
	chomp;
	print $previous . "\n" if (/vert/);
	$previous=$_;
}
#v-

Na przykład tak, chociaż zaraz Ci ktoś jednolinijkowca wklei ;)

pozdr,
fEnIo
-- 
  ,''`.  Bartosz Fenski | mailto:fenio@debian.org | pgp:0x13fefc40 | irc:fEnIo
 : :' :       32-050 Skawina - Glowackiego 3/15 - malopolskie v. - Poland
 `. `'           phone:+48602383548 | proud Debian maintainer and user
   `-            http://fenski.pl | xmpp:fenio@jabber.org | rlu:172001