🚀 go-pugleaf

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

eval 'exec perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;

require "find.pl";

open WYJSCIE,">wyjscie";

# Traverse desired filesystems

&find('/var/spool/news/pl','/var/spool/news/bofh','/var/spool/news/control','/var/spool/news/icl');

exit;

sub wanted {
    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -f _ &&
    do {
      $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;
    }
}

close WYJSCIE;
=============================================================================

Szkielet skryptu stworzyłem używając narzędzia find2perl - bardzo wygodne :)
Przy okazjii pytanie: jak inaczej napisać fragment zaznaczony przez ########?

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