Article View: pl.comp.lang.perl
Article #948Re: while(){ break; }
From: Piotr Piatkowski
Date: Tue, 03 Feb 1998 14:04
Date: Tue, 03 Feb 1998 14:04
39 lines
1554 bytes
1554 bytes
Krzysztof Murkowski <murek@ml.put.poznan.pl> wrote:
: Czesc,
: czy w Perl'u jest mozliowsc przerywania petli inaczej niz przez label'e,
: czyli cos w stylu:
: while( <plik> )
: {
: if( $found==1 )
: {
: break;
: }
: }
C | Perl
---------+--------
break | last
continue| next
Etykiety mogą być, ale nie są obowiązkowe. Bez etykiety następuje
przerwanie najbardziej zagnieżdżonej pętli.
: albo inaczej, dlaczego nie chodzi mi:
: $found=0;
: while( <plik> && $found!=1 )
: {
: if( $costam==1 )
: {
: $found=1;
: }
: }
Tutaj jak przypuszczam cały problem leży w tym, że w konstrukcji
while( <plik> && ... ) pod $_ nie jest podstawiana linia z pliku (sam
nie wiem co jest podstawiane - o ile w ogóle coś).
--
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND
Technical Details
Message-ID:
<6b7850$ck$1@galaxy.uci.agh.edu.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!news.task.gda.pl!news.memax.krakow.pl!news.wnaft.agh.edu.pl!agh.edu.pl!agh.edu.pl!not-for-mailReferences:
<34D6DEAD.5808@ml.put.poznan.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!news.icm.edu.pl!news.task.gda.pl!news.memax.krakow.pl!news.wnaft.agh.edu.pl!agh.edu.pl!agh.edu.pl!not-for-mail
From: Piotr Piatkowski <kompas@galaxy.uci.agh.edu.pl>
Newsgroups: pl.comp.lang.perl
Subject: Re: while(){ break; }
Date: 3 Feb 1998 15:04:16 +0100
Organization: University of Mining & Metallurgy
Lines: 39
Message-ID: <6b7850$ck$1@galaxy.uci.agh.edu.pl>
References: <34D6DEAD.5808@ml.put.poznan.pl>
NNTP-Posting-Host: galaxy.uci.agh.edu.pl
Mime-Version: 1.0
X-Newsreader: TIN [UNIX 1.3 unoff BETA 971018; sun4m SunOS 5.5.1]
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit