MIME-Typ aus HTTP-Response extrahieren

[Siechfred]

Wie käme ich an das letzte Element, da ich ja nicht weiss aus wie vielen Elementen URI besteht. Wenn [2] das dritte ist ... Mit [-1] ? Ich muss einfach mal testen was zurückgegeben wird.

Das musst du nicht, es ist definitiv immer das dritte Element. Sollte es dies nicht geben, wie bspw. hier im Forum (ohne 'my'), enthält das Element einfach nur einen Slash.

self_html.html -> Nach dem letzten Slash hinter dem Punkt ... oder ich kann vielleicht den mime-type prüfen ? Welche Dateierweiterungen gibt es die den mime-type text/html haben ? htm,html,xhtml ?

Den MIME-Typen bekommst du viel eleganter:

#!/usr/bin/perl -w  
use strict;  
use diagnostics;  
use LWP::UserAgent;  
use [link:http://search.cpan.org/~markov/MIME-Types-1.18/@title=MIME::Type];  
  
my $ua = LWP::UserAgent->new;  
my $response = $ua->get('http://www.anaboe.net/');  
my $mime = MIME::Type->new(type => $response->header('Content-type'));  
print $mime->simplified; # 'text/html'

Na da hab ich mir wieder was angefangen.

Hehe, viel Spaß :)

Siechfred