🚀 go-pugleaf

In pl.comp.lang.perl Artur Czechowski <Czesiu@bofh.org.pl> wrote:
: Hej
: To i ja się pochwalę. Miałem popsuty odbiór feedu UUCP i wszystkie
: newsy ładnie wysyłane ode mnie po tamtej stronie ślicznie szły sobie
: do /dev/null. Odbiór newsów naprawiłem, ale trzebaby jakoś wysłać te newsy.
: Oto jak to zrobiłem:

: =============================================================================
: #!/usr/bin/perl
...
:       $size=int(-s _);
:       open NEWS,$name;
:       $path="xxx";                       #########
:       while($path !~ /^Path/) {          #########
:         $path=<NEWS>;                    #########
:       }                                  #########
:       if ($path !~ /uucp-gw\.cyf\.gov\.pl/ ) {
:         print "$name $size\n";
:         print WYJSCIE "$name $size\n";
:       }
:       close NEWS;
...
: Szkielet skryptu stworzyłem używając narzędzia find2perl - bardzo wygodne :)
: Przy okazjii pytanie: jak inaczej napisać fragment zaznaczony przez ########?

Sam fragment to niespecjalnie jest jak skrócić, ale można cały 
zacytowany fragment zastąpić czymś takim:

$size = int ( -s _ );
open NEWS, $name 
  or die "open $name: $!";
while(<NEWS>) {
 if( /^Path:.*uucp-gw\.cyf\.gov\.pl/ ) {
     print "$name $size\n"; 
     print WYJSCIE "$name $size\n";
     last;
 }
}
close NEWS;


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