nicht angemeldet
Hallo EugeN
bin in CGI-Programmierung in Perl ein Anfänger und wollte wissen wie man alle Dateinamen in String(Array) speichert und sie dann ausgibt.
Da bietet sich die Verwendung des Moduls File::Find an:
#!/usr/local/bin/perl
use File::Find;
use strict;
Verzeichnis, ab welchem die Files eingelesen werden sollen
. = das aktuelle, also das, wo das Script liegt
my $dir = ".";
my @flist = "";
find sub { push (@flist, $File::Find::name) }, $dir;
print "Content-type: text/plain\n\n";
foreach (@flist){
print "$_\n";
}
Sieht sicher kompliziert aus. Einige Hilfen zu CGI (mit Perl) habe ich gerade gepostet:
http://www.teamone.de/selfaktuell/forum/?m=135909&t=26033
Gruß Frank