🚀 go-pugleaf

On Thu, 20 May 2010 14:15:07 +0200, Bartosz Feński aka fEnIo wrote:
> 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-
>
Dzieki wszystkim za odpowiedzi. Zawsze popelniam elementarny blad
w rozumowaniu chcac numerowac linie gdy mozna prosciej.
Jeszcze raz dzieki i pozdrawiam.