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');
}
Copyright(C) 2011
MURATA Yasuhisa.
All rights reserved.
Last modified: 2011-12-24