On Son, 14 Okt 2001, Johannes Gruber wrote: [QP-kodierte Header]
Ich speichere die Mails in einer DB (nur zum Anschaun). Kann ich diese Zeichenkette einfach löschen
Nein, du musst auch noch dekodieren ;) in Perl: ==== use MIME::QuotedPrint; use MIME::Base64; # input: QP or Base64 encoded string # output: decoded string sub mime_decode($) { my $tmp = shift; if ( $tmp =~ /(.*)=\?[iI][sS][oO]-[0-9]*-[0-9]*\?[qQ]\?(.*)\?=(.*)/) { $tmp =~ s/=\?[iI][sS][oO]-[0-9]*-[0-9]*\?[qQ]\?(.*)\?=/$1/g; $tmp =~ s/_/ /g; $tmp = decode_qp($tmp); } elsif ( $tmp =~ /(.*)=\?[iI][sS][oO]-[0-9]*-[0-9]*\?[bB]\?(.*)\?=(.*)/) { $tmp =~ s/=\?[iI][sS][oO]-[0-9]*-[0-9]*\?[bB]\?(.*)\?=/$1/g; $tmp = MIME::Base64::decode($tmp); } return $tmp; } # [...] my $subject = ...; $subject = mime_decode($subject); ==== (Ja, ist wohl ziemlich unelegant, lacht ruhig ;) -dnh -- Stimmt, MS-Benutzer zu verhohnepiepeln ist eigentlich so unwaidmaennisch wie tote Schafe zu treten. Trotzdem sehr angenehm wollig-warm im Tritt. -- Andreas Kabel am 16.05.2000 in dan-am