CGI - Wenn die Datei vorhanden ist dann ...

[Jan H.]

Hi!

Ich will in einen Perl-Script checken, ob eine bestimmte html-Datei auf meinem Server liegt oder nicht. Wenn die Datei da ist, dann soll &plan_a ausgeführt werden. Fehlt die Datei, so soll &plan_b ausgeführt werden.

Wie muesste der Quellcode für diese Befehle aussehen? Vielen Dank fuer die Hilfe!

Jan

[Rolf]

Hi!

Ich will in einen Perl-Script checken, ob eine bestimmte html-Datei auf meinem Server liegt oder nicht. Wenn die Datei da ist, dann soll &plan_a ausgeführt werden. Fehlt die Datei, so soll &plan_b ausgeführt werden.

Wie muesste der Quellcode für diese Befehle aussehen? Vielen Dank fuer die Hilfe!

Jan

Hallo,

use LWP::Simple;

if (head($url)) {
     # ok document exists
  }

Hab ich getestet, geht so ;-)

Viele Grüße, Rolf

[Cheatah]

Hi Rolf,

use LWP::Simple;

if (head($url)) {
     # ok document exists
  }

Hab ich getestet, geht so ;-)

oh je, warum einfach wenn es auch kompliziert geht... :-)

if (-e $datei) { &plan_a; }
else { &plan_b; }

Da die Datei auf dem Server liegt, braucht man kein HTTP anzufordern. Näheres zu -e und ähnlichen findest Du via Telnet mit:

perldoc -f -X

Cheatah

[Rolf]

Da die Datei auf dem Server liegt, braucht man kein

Hallo,
das hab ich doch glatt überlesen....

Herzliche Grüße an Cheatah, Rolf