Perl.it - Documenti

[18] Come si decodifica una stringa MIME/BASE64?

Il pacchetto MIME-Base64 (disponibile su CPAN) tratta sia questa sia la codifica MIME/QP. Decodificare da BASE64 diventa semplice:

    use MIME::Base64;
    $decodificato = decode_base64($codificato);

Il pacchetto MIME-Tools (disponibile su CPAN) supporta l'estrazione con decodifica degli allegati codificati in BASE64, direttamente dai messaggi email.

Se la stringa da decodificare è breve (lunga meno di 84 byte) un approccio più diretto è quello di usare il formato "u" della funzione unpack() dopo una semplice translitterazione:

    tr#A-Za-z0-9+/##cd;          	  # rimuove i caratteri non base64
    tr#A-Za-z0-9+/# -_#;                  # converte nel formato uuencode
    $lungh = pack("c", 32 + 0.75*length); # calcola la lunghezza in byte
    print unpack("u", $len . $_);         # effettua l'uudecode e stampa

vedi in inglese

AUTORE E COPYRIGHT

Questa documentazione è libera; puoi ridistribuirla e/o modificarla secondo gli stessi termini applicati al Perl.

Indipendentemente dalle modalitè di distribuzione, tutti gli esempi di codice in questo file sono rilasciati al pubblico dominio. Potete, e siete incoraggiati a farlo, utilizzare il presente codice o qualunque forma derivata da esso nei vostri programmi per divertimento o per profitto. Un semplice commento nel codice che dia riconoscimento alle FAQ sarebbe cortese ma non è obbligatorio.