Zeichenkodierung

[pl]

hi @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

# Binary Eurozeichen erzeugen
my $bin = chr(0xE2).chr(0x82).chr(0xAC);

# Base64 Kodierung
my $b64 = encode_base64($bin);                # Base64 4oKs

# Translate to UUencode & Decode
$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