1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#!/usr/local/bin/perl
use Benchmark;
my $count = $ARGV[0] || 16;
open F, "t/table.euc" or die "$!";
while(<F>){
push @src, $_;
}
for $ocode (qw/euc jis sjis/){
print "euc -> $ocode\n";
timethese($count, {
"Jcode.pm (OOP) " => \&Jcode_oop,
"Jcode.pm (Trad.)" => \&Jcode_trad,
"jcode.pl " => \&jcode_test,
}
);
}
sub jcode_test{
require "jcode.pl";
for (@src){
&jcode::convert(\$_, $ocode, 'euc');
}
}
sub Jcode_trad{
use Jcode;
for (@src){
&Jcode::convert(\$_, $ocode, 'euc');
}
}
sub Jcode_oop{
use Jcode;
no strict "refs";
my $j = new Jcode;
for (@src){
$j->set(\$_, 'euc')->$ocode();
}
}
|
