MIME-Typ aus HTTP-Response extrahieren (Fehlerkorrektur)

[Siechfred]

Den MIME-Typen bekommst du viel eleganter:

In der Tat, aber nicht mit Hilfe von MIME::Type:

#!/usr/bin/perl -w  
use strict;  
use diagnostics;  
use LWP::UserAgent;  
  
my $ua = LWP::UserAgent->new;  
my $response = $ua->get('http://www.anaboe.net/');  
my $mimestring = $response->header('Content-type');  
my $mimetype = substr $mimestring, 0, index($mimestring, ',');  
print $mimetype;

Sorry, mein Fehler, ich hatte die Beschreibung zu MIME::Type nicht richtig gelesen.

Siechfred