Auch eine Möglichkeit:
#!/usr/bin/perl -w
if(-e "datei.txt"){
open(FILE, "datei.txt");
while(<FILE> ) {print $_;}
close(FILE);
} else {
print "Keine Datei datei.txt vorhanden";
}
exit;
Hier wird geschaut ob die Datei "datei.txt" vorhanden ist und ggf. angezeigt.
oder als HTML Version für den Webserver (mod_perl kompatibel):
#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use FindBin qw($Bin);
use lib "$Bin/../lib";
my $file=param("file");
print header;
if(-e "$Bin/$file.txt"){
open(FILE, "$Bin/$file.txt");
while(<FILE> ) {print $_;}
close(FILE);
} else {
print "Keine Datei $file.txt vorhanden";
}
exit;
Der Syntax um datei.txt dann anzuzeigen wäre /scriptname.cgi?file=datei
Alle Dateien müssen aber im gleichen Verzeichnis wie das Script sein. Bei reinen Textdateien sollte man eventuell ein <br> einbauen.
[Dieser Beitrag wurde von Philipp am 27. Januar 2001 editiert.]
|