🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #650

Re: wyciecie konkretnej linii z pliku

#650
From: Piotr Piatkowski
Date: Fri, 31 Oct 1997 14:47
43 lines
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-mail
References: <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