![]() |
|< 1 2 3 >| | ![]() |
24 Einträge, 3 Seiten |
my $decoded = decode_base64($str);
my ($username, $password, $server, $debug) = @ARGV;
MIME::QuotedPrint anschauen.
Encode modul, mit dem du relative viele Encodings in andere Encodings umwandeln kannst
1
2
3
4
5
6
7
8
use strict;
use warnings;
use MIME::Words qw(:all);
my $data = "=?iso-8859-1?B?RFZELVZlcmxlaWggLSBwZXJmZWt0IGb8ciBsYW5nZSBXaW50ZXJhYmVuZGU6IDMgRFZEcyBm/HIgOSw5OSBFVVI=?=";
print decode_mimewords($data);
Encode kann man direkt einen Mailheader in die Perl-interne Form übetragen. Man benutzt das Pseudo-Encoding "MIME-Header", damit hat man Base64 und Quoted-Printable erschlagen.
![]() |
|< 1 2 3 >| | ![]() |
24 Einträge, 3 Seiten |