MIME::EcoEncode.pm : ベンチマーク用ソースコード

ベンチマーク用ソースコード

#!/usr/bin/perl

use Encode;
use Jcode;
use MIME::EcoEncode;
use Benchmark;

my $count;
my $str;
my ($str1, $str2);

for my $n ( (1, 25, 50, 100) ) {
    $count = int(100000 / $n);
    print "[n=$n count=$count]\n";

    $str = 'Subject: ' . 'あ' x $n;
    print $str . "\n";

    $str1 = encode('euc-jp', decode_utf8($str));
    print test1() . "\n";

    $str2 = encode('7bit-jis', decode_utf8($str));
    print test2() . "\n";

    timethese($count, {
                       'TEST1' => '&test1;',
                       'TEST2' => '&test2;',
                      });
}

exit 0;

sub test1 {
   my $str = $str1;
   Jcode::jcode($str)->mime_encode;
}

sub test2 {
   my $str = $str2;
   mime_eco($str, 'ISO-2022-JP');
}