Antw: [vienna.pm] hilfe mit einem Script, das Directories durchsucht

[Roland Bauer]

* * * 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/