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