Existenz einer Datei auf einem anderen Server prüfen

[alligator]

hi

Einen sonnigen Nachmittag allerseits,

ich möchte überprüfen, ob eine Datei auf einem anderen Server vorhanden ist. Soll heißen, wenn jemand in einem Formular z.B. einen Grafik-Link angibt nach dem Schema "http://www.irgendwas.de/grafik.gif", dann suche ich nach einer Möglichkeit, mit Perl zu überprüfen, ob es diese Datei überhaupt gibt.

Ich würde es mal mit dem Modul LWP::Simple oder LWP::UserAgent versuchen.
http://www.perldoc.com/perl5.8.0/lib/lwpcook.html
Und dann auf is->succes überprüfuen.
Aber musste versuchen, ist bloß ne Idee.

Und hierzu gleich noch eine Frage. Ich möchte mit einem regulären Ausdruck überprüfen, ob am Ende des Links die Zeichenfolgen "gif" oder "jpg" stehen:

if($eingabe != /(gif|jpg)$/) {
  # Hinweis, dass nur GIF- oder JPG-Grafiken erlaubt sind
}

Funktioniert das so?

Hast es getestet ?
Wenn ja, dann weisst es ja :o)
Ich denke aber schon.

cya
alligator