File::Find und Taint (Perl/CGI)

[thread]14279[/thread]

File::Find und Taint

Leser: 15

Articles: hide open all | hide show old branches

+3 replies
cbxk1xg

2009-11-21 19:00
User since
2003-10-20
496 Artikel
BenutzerIn
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!). :-)

Quote
Insecure 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.
Code (perl): (dl )

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; }
- +2 replies
- GwenDragon
  
  2009-11-21 19:21
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Bei finddepth steht doch:
  
  Quote
  finddepth(\%options, @directories);
  File::Find
  
  Code (perl): (dl )
  
  finddepth({ wanted => \&wanted, untaint => 1 }, $dir);
  
  Ungetestet.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - cbxk1xg
    
    2009-11-21 19:35
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    Oh, man! *kopfschüttel* Danke! Wer lesen kann ist klar im Vorteil. :-)

View all threads created 2009-11-21 19:00.