Article View: pl.comp.lang.perl
Article #51908Re: Jak wyciagnac linie z pliku?
From: Stachu 'Dozzie' K.
Date: Sat, 22 May 2010 12:24
Date: Sat, 22 May 2010 12:24
24 lines
2497 bytes
2497 bytes
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-
--
Secunia non olet.
Stanislaw Klekot
Technical Details
Message-ID:
<ht8id4$99n$2@solani.org>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!feeder.erje.net!weretis.net!feeder3.news.weretis.net!news.solani.org!not-for-mailReferences:
<slrnhv9krv.q2.tomjas@krusty.localdomain> <ht2lp9$uan$1@solani.org> <slrnhv9nc7.6re.tomjas@krusty.localdomain> <ht2mkt$uan$2@solani.org> <slrnhv9pgv.7eh.tomjas@krusty.localdomain> <ht2slh$djl$1@solani.org> <slrnhva99s.hu6.tomjas@krusty.localdomain> <slrnhva9ub.5je.fenio@serwer.fenski.pl> <slrnhvabsv.bur.lrem@localhost.localdomain> <ht721o$hf2$1@news.onet.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!feeder.erje.net!weretis.net!feeder3.news.weretis.net!news.solani.org!not-for-mail From: "Stachu 'Dozzie' K." <dozzie@go.eat.some.screws.spammer.invalid> Newsgroups: pl.comp.lang.perl Subject: Re: Jak wyciagnac linie z pliku? Date: Sat, 22 May 2010 12:24:04 +0000 (UTC) Organization: solani.org Lines: 24 Message-ID: <ht8id4$99n$2@solani.org> References: <slrnhv9krv.q2.tomjas@krusty.localdomain> <ht2lp9$uan$1@solani.org> <slrnhv9nc7.6re.tomjas@krusty.localdomain> <ht2mkt$uan$2@solani.org> <slrnhv9pgv.7eh.tomjas@krusty.localdomain> <ht2slh$djl$1@solani.org> <slrnhva99s.hu6.tomjas@krusty.localdomain> <slrnhva9ub.5je.fenio@serwer.fenski.pl> <slrnhvabsv.bur.lrem@localhost.localdomain> <ht721o$hf2$1@news.onet.pl> Mime-Version: 1.0 X-Trace: solani.org 1274531044 9527 eJwFwYEBgDAIA7CXHNAWznEg/59gAudhKwgGFnuzz774qLIMj5FUk0hDFeK50jjaZBi3nB8JXxAK (22 May 2010 12:24:04 GMT) X-Complaints-To: abuse@news.solani.org NNTP-Posting-Date: Sat, 22 May 2010 12:24:04 +0000 (UTC) X-User-ID: eJwNx8EBgDAIA8CVWgjBrAPI/iPo/S6cl51gELGx+hvA9c1OMVG5ZZhjNiV7VKeOMPY6nOoP/Y0QIA== Cancel-Lock: sha1:skK0SJlbGiOFtq/OmHCAjgAI4Mo= User-Agent: slrn/pre0.9.9-111 (Linux) X-NNTP-Posting-Host: eJwFwQkBwEAIAzBLfC3YYQz8S7gETuVkEAwczhsq97NM2Xq+OzwJLRFijFNnn3dLyhaTDxH9EJI= Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit