24. Februar 2005

MiniTipp: Strings mit perl zu base64 kodieren

Gelegentlich benötigt man unter Unix base64 kodierte Zeichenfolgen (wie im RFC2045 beschrieben) oder man möchte bereits base64 kodierte Zeichenfolgen wieder dekodieren.
Das Mittel zum Zweck ist wie so oft Perl, insbesondere das Perlmodul MIME::Base64. Das Modul ermöglicht es Strings oder Dateien von und nach base64 zu kodieren bzw. dekodieren.

Die Zeichenfolge "mein username" würde man beispielsweise mit folgendem Kommando kodieren:

perl -MMIME::Base64 -e 'print encode_base64("mein username")'

heraus kommt dann "bWVpbiB1c2VybmFtZQ==". Um die selbe Zeichenfolge zu dekodieren benutzt man die decode_base64() Funktion:

perl -MMIME::Base64 -e 'print decode_base64("bWVpbiB1c2VybmFtZQ==")'

heraus kommt in diesem Fall natürlich die Zeichenfolge "mein username".

Ganze Dateien würde man mit folgender Syntax kodieren bzw. dekodieren:


perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)' <dateiename
perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)' <dateiename