Antw: [vienna.pm] hilfe mit einem Script, das Directories
durchsucht
Roland Bauer
Roland.Bauer at mediaprint.at
Wed Mar 15 04:09:51 CST 2000
* * * vienna-pm-list * * *
Das geht in etwa so:
#####################################
use strict;
use File::Find;
my $startdir = '.';
find sub {
# prune bewirkt das Ueberspringen ...
$File::Find::prune = 1 if $File::Find::dir =~ m#$startdir/RECYCLER#;
print "DIR: $File::Find::dir\n";
print "FIL: $File::Find::name\n";
}, $startdir;
####################################
Und dann ist mir noch aufgefallen:
(meine Anmerkungen mit ##)
##da fehlt ein use strict;
use File::Find ();
##warum die klammern? - das heisst du importierst nix
*name = *File::Find::name;
*prune = *File::Find::prune;
*dir = *File::Find::dir;
*topdir = *File::Find::topdir;
*topdev = *File::Find::topdev;
*topino = *File::Find::topino;
*topmode = *File::Find::topmode;
*topnlink = *File::Find::topnlink;
## warum manuell importieren?
sub find {
## nicht empfehlenswert, das eigene unterprogramm auch "find" zu nennen
&File::Find::find(\&wanted, @_);
}
sub wanted
{
return unless /\.(html|htm|txt|ii)$/;
## angeblich lesbarer:
## /\.(html|htm|txt|ii)$/ or return;
++$i;
}
schoene gruesse
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