Wie kann ich mit Perl überprüfen, ob eine txt datei existiert, oder nicht und wenn sie da is, das er sie gleich anzeigt
hab schon einiges ausprobiert, aber noch keine lösung gfunden :(

#! /usr/bin/perl

if(open(COOLERDATEI, "<labersuelz.txt") == false)
{ print "keine Datei gefunden\n"; }

open(COOLERDATEI, "<labersuelz.txt") | | die "keine Datei gefunden\n";

thx

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