🚀 go-pugleaf

W artykule Stachu 'Dozzie' K. napisał(a):

>>>>> 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 ;)
>>>
>>> A masz jak kusisz :P
>>>
>>> perl -n0e 'print $1 while /(.*\n)(?=.*vert)/g' plik.txt
>>
>> Kto da wię^Hmniej? :)
>
> perl -n0e 'print$1while/(.*\n)(?=.*vert)/g'
>
> BP,NMSP
>
> perl -n0e 'print for/(.*\n)(?=.*vert)/g'

Mimo, że nie potrafię tego napisać krócej to i tak nie wierzę, że się nie
da ;P

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