Perl Frage

[Philipp]

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.]