Re: Jak wyciagnac linie z pliku?

Article View: pl.comp.lang.perl

Article #51904

#51904

From: lrem
Date: Thu, 20 May 2010 21:35

16 lines
1654 bytes

W poście <v27gc7-558.ln1@depesz.com>,
 hubert depesz lubaczewski nabazgrał:
> On 2010-05-20, lrem@localhost.localdomain <lrem@localhost.localdomain> wrote:
>> #v+
>> perl -e 'use strict; use warnings FATAL => qw( all ); my $previous=""; while (<STDIN>) { chomp; print $previous . "\n" if (/vert/); $previous=$_; }'
>> #v-
>
> jednolinijkowce sie krótkie pisze:
>
> perl -e '$p=<>;while(<>){/vert/&&print$p;$p=$_}'

To może by tak:
#v+
perl -ne '/vert/&&print$p;$p=$_'
#v-
jak już ma być krótko? ;)

Technical Details

Message-ID: <slrnhvbbcf.d3p.lrem@localhost.localdomain>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.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> <slrnhvabsv.bur.lrem@localhost.localdomain> <v27gc7-558.ln1@depesz.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.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 21:35:21 GMT
Organization: GTS Energis
Lines: 16
Message-ID: <slrnhvbbcf.d3p.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> <slrnhvabsv.bur.lrem@localhost.localdomain> <v27gc7-558.ln1@depesz.com>
NNTP-Posting-Host: 78.133.248.254
Mime-Version: 1.0
X-Trace: news2.ipartners.pl 1274391321 34764 78.133.248.254 (20 May 2010 21:35:21 GMT)
X-Complaints-To: abuse@ipartners.pl
NNTP-Posting-Date: 20 May 2010 21:35:21 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