Opened by Gast at 2003-09-24 11:14
User since
2003-09-20
470 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-20
470 Artikel
BenutzerIn
Bei mir funktioniert das irgendwie nicht, ich möchte ein Verzeichniss auf meinem Webserver durchsuchen und alle Dateien wieder geben.
Habe es so probiert aberdas funktioniert nicht.
Tom
Habe es so probiert aberdas funktioniert nicht.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
use strict;
use warnings;
use File::Find;
my @directories = qw|'http://127.0.0.2/'|;
find(sub {print $_,"\n" },@directories);
print "Content-type: text/html\n\n";
print @directories;
exit;
Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de
Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
Fordere keine Anerkennung!
Zeige was und man wird Dich kennen