🚀 go-pugleaf

Artur Czechowski <Czesiu@bofh.org.pl> wrote:
: In pl.comp.lang.perl Piotr Piatkowski <kompas@galaxy.uci.agh.edu.pl> wrote:
: PP>$size = int ( -s _ );
: PP>open NEWS, $name 
: PP>  or die "open $name: $!";
: PP>while(<NEWS>) {
: PP> if( /^Path:.*uucp-gw\.cyf\.gov\.pl/ ) {
: PP>     print "$name $size\n"; 
: PP>     print WYJSCIE "$name $size\n";
: PP>     last;
: PP> }
: PP>}
: PP>close NEWS;

: Hmm... To niezupełnie tak...
: 1. Szukam Path:
: 2. Jeżeli w Path: NIE występuje ciąg znaków uucp-gw.cyf.gov.pl, to wtedy
: trzeba wypisać odpowiedni string na wyjściu. 
: 3. Przechodzę do następnego artykułu.

A jaki problem?  

if( /^Path:/ ) { 
 print "$name $size\n" unless /uucp-gw\.cyf\.gof\.pl/;
 last;
}

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND