MIME-Typ aus HTTP-Response extrahieren (Fehlerkorrektur)

[Gustl]

use LWP::UserAgent;

my $mimestring = $response->header('Content-type');

  
liefert 0 den mime-type und 1 den charset aus, falls vorhanden. (text/html; charset=iso-8859-1)  
  

> ~~~perl
  
my $mimetype = substr $mimestring, 0, index($mimestring, ',');  

liefert das gleiche, nur hinten fehlt ein zeichen. also z.B: image/jpe anstatt jpeg oder charset=iso-8859- anstatt 8859-1.

Könnte ich schon brauchen, ich lass mir von mimestring pos 0 liefern, wie auch immer. das dumme ist, wenn es die datei nicht gibt oder sie nicht lesbar ist bekomme ich den mime-type der nächst erreichbaren datei zurück.

Stünde somit wieder beim Anfangsproblem, der User MUSS eine Datei benennen die dem von mir zugelassenen Typ entspricht. Aber an den Dateinamen alleine komm ich nicht wirklich ran, auch nicht mit uri_split[2]. Die Eingabe möchte ich auch nicht auf 2 inputs aufsplitten.

Schnauf, das wird wohl spannend.

Schon 2 Tage ohne Lösung -> Gruss Frustl