kadauz: Dateinamen oder Dateipfad in string extrahieren

Beitrag lesen

SELF-Forum

Dateinamen oder Dateipfad in string extrahieren

kadauz
– Informationen zu den Bewertungsregeln

»» »» wie kann ich in perl aus einem bestimmte Ordner die Dateinamen bzw. den volständigen Pfad der einzelnen Dateien in nen string bekommen?
»» »» Diese dann enstehenden string sollen in ein array.
»»
»» Deine Suchbegriffen heissen opendir() readdir() sowie filetests -f -T
»»
»» mfg Beat

Ok, das heißt damit kann ich den Namen von beliebig vielen und nicht bekannten Dateien in ein array bekommen?

Ok, soweit so gut. Jetzt hab ich aber nen weiteres Problem:

Ich habe folgenden Quellcode:

#/usr/bin/perl -w  
  
use strict;  
use File::Find;  
  
#my $verzeichnis = '/htdocs/privat';  
my @file_list=();  
  
find sub {push @file_list, $File::Find::name}, $verzeichnis;  
  
print "Content-type: text/html\n\n";  
print '<html>';  
print '<head>';  
print '<meta name="kadauz" content="nopnop">';  
  
foreach(@file_list)  
		{  
	print "<a href='$_'>$_</a>";  
	print "<br>";  
		}  
		  
print "</head>";  
print  "</body></html>";

Dieses Script soll praktisch alle Dateien samt Verzeichnis in /htdocs/privat auflisten und als Link ausgeben.

Mit Xamp macht es das auch ohne Probleme. Auf dem Webspace leider nicht. Wobei kein Fehler erscheint, sondern es so aussieht als sei das @file_list nicht befüllt. Soll heißen, er geht nicht bei foreach in die Schleife.
An was kann das liegen? Vielleicht am htdocs Ordner?

Beitrag melden
–
Informationen zu den Bewertungsregeln