Externe Dateien prüfen

[Siechfred]

Nächstes Problem: Wenn ich mit if head prüfe, reicht eine url ohne explizitem Dateinamen, es wird auf index verwiesen. Ich muss aber prüfen ob eine Datei tatsächlich existiert, d.h der User MUSS eine Datei angeben.

Eventuell hilft URI::Split:

#!/usr/bin/perl -w  
use strict;  
use diagnostics;  
use URI::Split qw/uri_split/;  
  
my $uri = 'http://www.anaboe.net/foo.html';  
my $path = (uri_split($uri))[2];  
print $path;

Alles, was nach der TLD kommt, steht in $path, diesen Teil kannst du dann prüfen. Ansonsten kannst du dir auch alles ab dem letzten Slash holen und prüfen, ob dieser Teil eine von dir akzeptierte Dateierweiterung hat.

Siechfred