Antw: [vienna.pm] hilfe mit einem Script, das Directories
durchsucht
Roland Bauer
Roland.Bauer at mediaprint.at
Wed Mar 15 04:15:54 CST 2000
* * * vienna-pm-list * * *
Das war nur fast richtig.
Jetzt sollte es passen:
use strict;
use File::Find;
my $startdir = '.';
find sub {
# prune bewirkt das Ueberspringen ...
if ($File::Find::dir =~ m#$startdir/RECYCLER#) {
$File::Find::prune = 1;
return;
}
print "DIR: $File::Find::dir\n";
print "FIL: $File::Find::name\n";
}, $startdir;
Roland
###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer at mediaprint.at>
http://www.fff.at/fff/vienna.pm/
More information about the Vienna-pm
mailing list