Abfragen ob eine Datei existiert

[Barna]

Hallo

Wie kann ich in Perl abfragen, ob eine Datei existiert oder nicht?
(am einfachsten in einer if abfrage)
Danke

Bye

[xitnalta]

Wie kann ich in Perl abfragen, ob eine Datei existiert oder nicht?
(am einfachsten in einer if abfrage)

soweit ich gekommen bin:

if (-e "Dateiname") {
  do_something();
}

bis nextens
<img src="http://redrival.com/frhp/common/ar3rigr.gif" alt=""> xitnalta

http://redrival.com/frhp/

[Marko Schilde]

Wie kann ich in Perl abfragen, ob eine Datei existiert oder nicht?
(am einfachsten in einer if abfrage)

soweit ich gekommen bin:

if (-e "Dateiname") {
  do_something();
}

bis nextens
<img src="http://redrival.com/frhp/common/ar3rigr.gif" alt=""> xitnalta

http://redrival.com/frhp/

Funktioniert das auch mit beliebigen Internetadressen?

-M

[Michael Schröpl]

if (-e "Dateiname") {
  do_something();
}
Funktioniert das auch mit beliebigen Internetadressen?

Nein. Erstens ist eine URL keine Datei (jedenfalls ist der Zugriffsmechanismus unterschiedlich), zweitens ist der Begriff "existiert" bei einer URL temporär definiert (Server-Verfügbarkeit).

Mit LWP::Simple kannst Du u. a. den Head einer URL "absaugen" - und damit praktisch prüfen, ob sie (derzeit) ansprechbar ist.
http://www.teamone.de/selfaktuell/serverid.htm macht genau dies.

[Andreas Flückiger]

Hallo Michael

Nein. Erstens ist eine URL keine Datei (jedenfalls ist der Zugriffsmechanismus unterschiedlich), zweitens ist der Begriff "existiert" bei einer URL temporär definiert (Server-Verfügbarkeit).

Man kann aber immerhin den response code überprüfen. Folgender Code macht das:

use LWP::Simple;
if(head($url))
{ do_something(); }

head($url) ist nur wahr, wenn der request auch erfolgreich war, und das ist er normalerweise nicht, wenn die Datei auf dem Server nicht existiert.

Gruss
Andreas