Re: Zakolejkowanie newsów

Article View: pl.comp.lang.perl

Article #503

#503

From: Artur Czechowski
Date: Tue, 12 Aug 1997 10:49

24 lines
1336 bytes

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 to powyżej działa trochę inaczej...

Pozdrówka
-- 
Artur Czechowski <Czesiu@bofh.org.pl>

Technical Details

Message-ID: <5spf38$2op$1@arc.icl.co.uk>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!uucp-gw.cyf.gov.pl!ICL-Poland-uucp!icl.cyf.gov.pl!arturcz

References: <5sni9i$bss$12@arc.icl.co.uk> <5soats$hkr$1@galaxy.uci.agh.edu.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!pingwin.icm.edu.pl!agh.edu.pl!ict.pwr.wroc.pl!uucp-gw.cyf.gov.pl!ICL-Poland-uucp!icl.cyf.gov.pl!arturcz
From: Czesiu@bofh.org.pl (Artur Czechowski)
Newsgroups: pl.comp.lang.perl
Subject: Re: Zakolejkowanie newsów
Date: 12 Aug 1997 10:49:12 GMT
Organization: the floor, rolling and laughing (tm)
Lines: 24
Message-ID: <5spf38$2op$1@arc.icl.co.uk>
References: <5sni9i$bss$12@arc.icl.co.uk> <5soats$hkr$1@galaxy.uci.agh.edu.pl>
NNTP-Posting-Host: arc.icl.co.uk
Mime-Version: 1.0
X-Newsreader: TIN [UNIX 1.3 unoff BETA 970731; i586 Linux 2.0.30]
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message