File::Find und Taint (Perl/CGI) - Perl-Community.de

Start · Board · Webprogrammierung mit Perl · Perl/CGI

2024-11-22 13:43:27
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
4 Gäste

[thread]14279[/thread]

submit to reddit

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
  14748 Artikel
  Admin1
  Bei finddepth steht doch:
  
  Quote
  finddepth(\%options, @directories);
  File::Find
  
  Code (perl): (dl )
  
  finddepth({ wanted => \&wanted, untaint => 1 }, $dir);
  
  Ungetestet.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - 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.