Re: Jak wyciagnac linie z pliku?

Article View: pl.comp.lang.perl

Article #51905

#51905

From: Maciej Misiak
Date: Fri, 21 May 2010 22:38

35 lines
2224 bytes

lrem@localhost.localdomain pisze:
> W poście <slrnhva9ub.5je.fenio@serwer.fenski.pl>,
>  Bartosz Feński aka fEnIo nabazgrał:
>> #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 ;)
> 
> #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)

-- 
grizzley

Technical Details

Message-ID: <ht721o$hf2$1@news.onet.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!not-for-mail

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>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.onet.pl!not-for-mail
From: Maciej Misiak <grizzley@poczta.onet.pl>
Newsgroups: pl.comp.lang.perl
Subject: Re: Jak wyciagnac linie z pliku?
Date: Sat, 22 May 2010 00:38:45 +0200
Organization: http://onet.pl
Lines: 35
Message-ID: <ht721o$hf2$1@news.onet.pl>
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>
NNTP-Posting-Host: ip-62-69-199-251.globalconnect.pl
Mime-Version: 1.0
X-Trace: news.onet.pl 1274481528 17890 62.69.199.251 (21 May 2010 22:38:48 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Fri, 21 May 2010 22:38:48 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.24 (Windows/20100228)
In-Reply-To: <slrnhvabsv.bur.lrem@localhost.localdomain>
X-Antivirus: avast! (VPS 100521-1, 2010-05-21), Outbound message
X-Antivirus-Status: Clean
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message