Re: Jak wyciagnac linie z pliku?

Article View: pl.comp.lang.perl

Article #51899

#51899

From: lrem
Date: Thu, 20 May 2010 12:38

24 lines
1613 bytes

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 ;]

Technical Details

Message-ID: <slrnhvabsv.bur.lrem@localhost.localdomain>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!news2.ipartners.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>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!news2.ipartners.pl!not-for-mail
From: lrem@localhost.localdomain
Newsgroups: pl.comp.lang.perl
Subject: Re: Jak wyciagnac linie z pliku?
Date: 20 May 2010 12:38:04 GMT
Organization: GTS Energis
Lines: 24
Message-ID: <slrnhvabsv.bur.lrem@localhost.localdomain>
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>
NNTP-Posting-Host: 78.133.248.254
Mime-Version: 1.0
X-Trace: news2.ipartners.pl 1274359084 19198 78.133.248.254 (20 May 2010 12:38:04 GMT)
X-Complaints-To: abuse@ipartners.pl
NNTP-Posting-Date: 20 May 2010 12:38:04 GMT
X-Homesite: http://lrem.net/
X-Posting-License: http://ppl.7thguard.net/PPL
User-Agent: slrn/0.9.8.1pl1 (Linux)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message