use strict;
use Benchmark qw(:all);
use MIME::Base64;

our $src = "";
for ( 0..255 )
{ $src .= chr( $_ ); }
my $count = 0;

print "case1: pack/unpack  --  ", &case1, " size, $count,  \n";
print "case2: MIME::Base64 --  ", &case2, " size, $count,  \n";
print "case3: Simple Copy  --  ", &case3, " size, $count,  \n";

timethese ($count, {
    case1 => sub {&case1},
    case2 => sub {&case2},
    case3 => sub {&case3},
    },
);

cmpthese ($count, {
    case1 => sub {&case1},
    case2 => sub {&case2},
    case3 => sub {&case3},
    },
);

sub case1
{    # print "case1\n";
    our $src;
    my $result = unpack("H*", $src );
    my $back = pack("H*", $result );
    if ( $src ne $back ) { print "1 ne\n"; exit; }
    return length( $result );
}

sub case2
{    # print "case2\n";
    our $src;
    my $result = encode_base64($src,"");
    my $back = decode_base64( $result );
    if ( $src ne $back ) { print "2 ne\n"; exit; }
    return length( $result );
}

sub case3
{    # print "case3\n";
    our $src;
#    my $result = $src;
    my $back = $src;
    if ( $src ne $back ) { print "3 ne\n"; exit; }
    return length( $back );
}


__END__

email7:/usr/local/apache/prefork/cgi-bin/t# pyrperl  Hex_vs_B64.plx
case1: pack/unpack  --  512 size, 0,  
case2: MIME::Base64 --  344 size, 0,  
case3: Simple Copy  --  256 size, 0,  
Benchmark: running case1, case2, case3 for at least 3 CPU seconds...
     case1:  4 wallclock secs ( 3.14 usr +  0.00 sys =  3.14 CPU) @ 142625.48/s (n=447844)
     case2:  3 wallclock secs ( 3.11 usr +  0.00 sys =  3.11 CPU) @ 204192.93/s (n=635040)
     case3:  4 wallclock secs ( 3.18 usr +  0.00 sys =  3.18 CPU) @ 1199358.18/s (n=3813959)
           Rate case1 case2 case3
case1  141559/s    --  -31%  -88%
case2  205511/s   45%    --  -83%
case3 1203509/s  750%  486%    --