Datenamen in Form eines String ausgeben

[EugeN]

Hey Leute,

bin in CGI-Programmierung in Perl ein Anfänger und wollte wissen wie man alle Dateinamen in String(Array) speichert und sie dann ausgibt.
Würde gerne anhand der Dateinamen, sie in verschiedene Bereiche auf meiner Internetseite sortieren.

Thanks EugeN

[FrankS]

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

[EugeN]

Danke Frank,

das hat funktioniert!

Gruss EugeN