UUencode und Base64 (gelöst) - #189001 (Allgemeines zu Perl)

haj

2018-10-20 23:59

User since
2015-01-07
559 Artikel
BenutzerIn

user image

2018-10-20T14:48:06 rosti
MIME::Base64 läuft in meiner Win-XP-Perlversion über XS Loader da kann ich gar nicht reingucken (Base64.dll).

Da kann man schon reingucken: https://st.aticpan.org/source/GAAS/MIME-Base64-3.1...

Der Witz an dem alten FAQ-Eintrag ist, dass zunächst Base64 in UUcode umgewandelt wird, damit man's hinterher an Perldoc:

unpack verfüttern kann - und man auf diese Weise in Perl 5.6 ohne CPAN-Module Base64 decodieren konnte.

MIME::Base64 kann kein UUencode/UUdecode. Es gibt einen Perl-Modul, der UUencode/UUdecode macht: CPAN:

Convert::UU hat auch schon viele Jahre auf dem Buckel, ist Pure-Perl, und in dessen Innerem findet man diese beiden Zeilen:

Code (perl): (dl )

# in sub _uuencode_chunk:
my $encoded_string = pack("u", $string);           # unix uuencode
# in sub _uudecode_chunk:
my $ret = unpack("u", $string);

...es läuft also auch da auf pack/unpack hinaus. Der Sourcecode dafür ist in https://st.aticpan.org/source/XSAWYERX/perl-5.28.0... zu finden, keine Hexerei, aber auch keine Freude zu lesen.