Article View: pl.comp.lang.perl
Article #650Re: wyciecie konkretnej linii z pliku
From: Piotr Piatkowski
Date: Fri, 31 Oct 1997 14:47
Date: Fri, 31 Oct 1997 14:47
43 lines
1548 bytes
1548 bytes
Bartek Papierski <bartek@pactor.tpnet.pl> wrote:
: Czesc,
: Raczkuje w perlu, wiec mam do Was pytanie:
: Chcialem wyciac linie na przyklad 3 i 4 z pliku tekstowego.
: Czy da sie to zalatwic jakas maska?
: Prosze o pomoc.
Jeżeli przez maskę rozumiesz wyrażenie regularne, to niby można, ale
nie jest to najlepsze rozwiązanie. Znacznie ładniej będzie np. tak:
while(<>) {
if( 3..4 ) {
# to rób dla linii 3 i 4 ...
}
else {
# ...a to dla pozostałych.
}
}
Co jest mniej więcej równoważne takiej konstrukcji:
$flipflop = 0;
while(<>) {
if( ! $flipflop && $. == 3 ) {
$flipflop = 1;
}
if( $flipflop ) {
# ...
}
else {
# ...
}
if( $flipflop && $. == 4 ) {
$flipflop = 0;
}
}
(a $. to numer aktualnie przetwarzanej linii z pliku wejściowego).
--
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND
Technical Details
Message-ID:
<63cr2l$o77$1@galaxy.uci.agh.edu.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!agh.edu.pl!not-for-mailReferences:
<Pine.LNX.3.96.971029142118.14816A-100000@jola.pactor.tpnet.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!agh.edu.pl!not-for-mail From: kompas@galaxy.uci.agh.edu.pl (Piotr Piatkowski) Newsgroups: pl.comp.lang.perl Subject: Re: wyciecie konkretnej linii z pliku Date: 31 Oct 1997 15:47:49 +0100 Organization: University of Mining & Metallurgy Lines: 43 Message-ID: <63cr2l$o77$1@galaxy.uci.agh.edu.pl> References: <Pine.LNX.3.96.971029142118.14816A-100000@jola.pactor.tpnet.pl> NNTP-Posting-Host: galaxy.uci.agh.edu.pl Mime-Version: 1.0 X-Newsreader: TIN [UNIX 1.3 unoff BETA 970307; sun4m SunOS 5.5.1] Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit