Article View: pl.comp.lang.perl
Article #51916Re: Jak wyciagnac linie z pliku?
From: Stachu 'Dozzie' K.
Date: Sat, 22 May 2010 08:39
Date: Sat, 22 May 2010 08:39
39 lines
2354 bytes
2354 bytes
On 2010-05-22, Bartosz Feński aka fEnIo <fenio@debian.org> wrote:
>>>> Interesuje mnie kazda linia, PO ktorej wystepuje linia zawierajaca
>>>> ciag "vert".
>>>
>>> No skoro interesuje Cię 1 linia poprzedzająca to raczej nie ma sensu
>>> pamiętać wszystkich, nie?
>>>
>>> #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 ;)
>>
>> A masz jak kusisz :P
>>
>> perl -n0e 'print $1 while /(.*\n)(?=.*vert)/g' plik.txt
>
> Kto da wię^Hmniej? :)
perl -n0e 'print$1while/(.*\n)(?=.*vert)/g'
BP,NMSP
perl -n0e 'print for/(.*\n)(?=.*vert)/g'
--
Secunia non olet.
Stanislaw Klekot
Technical Details
Message-ID:
<ht857c$b0o$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!news.uni-stuttgart.de!news-2.dfn.de!news.dfn.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> <ht72cb$hf2$2@news.onet.pl> <slrnhvf40e.j1p.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!news.nask.pl!news.nask.org.pl!news.uni-stuttgart.de!news-2.dfn.de!news.dfn.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 08:39:08 +0000 (UTC) Organization: solani.org Lines: 39 Message-ID: <ht857c$b0o$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> <ht72cb$hf2$2@news.onet.pl> <slrnhvf40e.j1p.fenio@serwer.fenski.pl> Mime-Version: 1.0 X-Trace: solani.org 1274517548 11288 eJwFwQERADEIAzBLMNrCy4Fx8y/hE4ZcNyEKfHyPt6a8fRgdMLT3t9o8tetVBzTYaJQ4wfwBFfUQNw== (22 May 2010 08:39:08 GMT) X-Complaints-To: abuse@news.solani.org NNTP-Posting-Date: Sat, 22 May 2010 08:39:08 +0000 (UTC) X-User-ID: eJwFwQcBACAMAzBLdI8hZ9e/BBJlg9UVUxNdXSuaRs/0AYgaw3VCPTzuJq2kP/bnAUYu/AMschFV Cancel-Lock: sha1:gBmXUkoxwBPL26Ll/LObLAmDwRU= User-Agent: slrn/pre0.9.9-111 (Linux) X-NNTP-Posting-Host: eJwFwYEBwCAIA7CXZECt5wiV/09Ykg5D70AicnIe6s4yaW7hcJe+HkXrNEmx9psytuB0rfgBSl8SZQ== Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit