Hi! Ich versuche grade eine Funktion zu schreiben mit der ich die absoluten Pfade von ALLEN Dateien aus einem Verzeichnis und Unterverzeichnissen in ein Array packen kann. Da ich neben use strict und use warnings auch immer den taint mode von Perl benutze, stecke ich nun fest. File:: Find macht irgendwann ein chdir und da meckert Perl (brav!). :-)
QuoteInsecure dependency in chdir while running with -T switch at /usr/share/perl/5.10/File/Find.pm line 871.
Ich habe gelesen, das man File::Find einen untaint Befehl übergeben kann, verstehe die Doku aber überhaupt nicht. Es gibt auch irgendwie keine vernünftigen Beispiele. - Zumindest habe ich keine gefunden.
1
2
3
4
5
6
7
8
9
10
11
12
13
sub GetAllFiles {
my ($dir) = $_[0];
use File::Find;
finddepth (\&wanted, $dir);
return @files;
}
sub wanted {
my @files = ();
push @files,$File::Find::name;
return @files;
}