Zeichenkodierung
bearbeitet von plhi @Rolf B
> Ich habe mein Fiddle gerade um eine Zeitmessung von btoa erweitert: Die handgemachte encode-Methode braucht über 1000ms, btoa aber nur 54.
Das ist ganz toll, nützt aber nichts.
> Das ist dann der Preis der Eigenentwicklung.
Der Preis der Eigenentwicklung ist, daß sie funktioniert!
MfG
PS: Die Verwandschaft von UUencode und Base64
~~~perl
# Binary Eurozeichen erzeugen
my $bin = chr(0xE2).chr(0x82).chr(0xAC);
# Base64 Kodierung
my $b64 = encode_base64($bin); # Base64 4oKs
$b64 =~ tr#A-Za-z0-9+/##cd; # remove non-base64 chars
$b64 =~ tr#A-Za-z0-9+/# -_#; # convert to uuencoded format
my $len = pack("c", 32 + 0.75*length($b64)); # compute length byte
print unpack("u", $len . $b64); # Binary €
~~~
[Qualle](https://www.perlmonks.org/?node=How%20do%20I%20decode%20a%20MIME%2FBASE64%20string%3F)