🚀 go-pugleaf

> On 2010-05-21, Maciej Misiak <grizzley@poczta.onet.pl> wrote:
> >>> Na przykład tak, chociaż zaraz Ci ktoś jednolinijkowca wklei ;)
> >> 
> >> #v+
> >> perl -e 'use strict; use warnings FATAL => qw( all ); my $previous="";
while (<STDIN>) { chomp; print $previous . "\n" if (/vert/); $previous=$_; }'
> >> #v-
> >> 
> >> Proszę bardzo ;]
> >
> > Ale ten i pozostałe to takie sztuczne jednolinijkowce chyba, co? Jak 
> > jest średnik w kodzie (oczywiście jako element składni, a nie np. 
> > regexpa, to tak naprawdę jest już dwulinijkowiec. Chociaż 'while(cos) { 
> > do cos }' to są przynajmniej dwie linie kodu. Jaka jest definicja 
> > właściwie jednolinijkowca? :> (ja bym powiedział, że to kod bez 
> > średników oddzielających komendy)
> 
> Ja ci dam bez średników!
> #v+
> perl -Mstrict -Mwarnings=FATAL,all -e '(our $previous = ""), do { while
(<STDIN>) { print $previous . "\n" if (/vert/) } continue { chomp($previous =
$_) } }'
> #v-

No niezłe to continue... :)
To ja poproszę jeszcze o skorzystanie z istniejących zmiennych ($, zamiast
$previous i nie trzeba wtedy nic definiować) oraz zaprzestanie żonglowania
końcem linii :>

-- 
grizzley


-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl