Encode y decode en Base64 desde Perl

Para mayor claridad aquí dejo un pequeño script que hace uso de las funciones encode y decode de perl

#!/usr/bin/perl -w

use strict;
use warnings;
use MIME::Base64;

my $no_base64 = 'hola soy una cadena de texto';
my $si_base64 = encode_base64('hola soy una cadena de texto');

chomp ($no_base64);
chomp ($si_base64);

print "\n\n";
print "cadena no base64: '". $no_base64 ."'\n";
print "cadena si base64: '". $si_base64 ."'\n";
print decode_base64($si_base64) .'=='. $no_base64;
print "\n\n";

No hay comentarios

Agregar comentario