URL zerlegen

[rolfrost]

Moin,

Weiss jemand, wie ich eine URL in die einzelnen bestandteile zerlegen kann?(domain.tld, verzeichnis-struktur, dateiname, dateiendung)

input

$url = "http://www.domain.tld/verzeichnis/ab/index.html";

use File::Basename;

@suffixlist = qw(.html .htm);

#($name,$path,$suffix) = fileparse($fullname,@suffixlist)
$fullname = "http://www.domain.tld/verzeichnis/ab/index.html";

($name,$path,$suffix) = fileparse($fullname,@suffixlist);
print "Name: $name, Path: $path,Suffix: $suffix\n";

path weiter zerlegen...

$path =~ /^http://(.*?)/(.*?)$/;
print "Domain: $1, Verzeichnis: $2\n";

=output
Name: index, Path: http://www.domain.tld/verzeichnis/ab/,Suffix: .html
Domain: www.domain.tld, Verzeichnis: verzeichnis/ab/
Prozeß erfolgreich abgeschlossen
=cut

Viele Grüße, Rolf