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
45
46
|
#!/usr/local/bin/perl
use ExtUtils::testlib;
use Benchmark;
use strict;
use lib qw(.);
$| = 1;
require Jcode;
$Jcode::DEBUG = 1;
$Jcode::NOXS = $ARGV[0];
print "done.\n";
my $file = "t/table.euc";
open F, $file or die "$file:$!";
my $euc;
read F, $euc, -s $file;
my $ucs2 = Jcode->new($euc)->ucs2;
my $utf8 = Jcode->new($euc)->utf8;
my $count = $ARGV[1] || 16;
timethese($count, {
"utf8->ucs2" => \&utf8_ucs2,
"ucs2->utf8" => \&ucs2_utf8,
"ucs2->euc" => \&ucs2_euc,
"ucs2->utf8" => \&ucs2_utf8,
});
sub utf8_ucs2{
&Jcode::utf8_ucs2($utf8);
}
sub ucs2_utf8{
&Jcode::ucs2_utf8($ucs2);
}
sub euc_ucs2{
&Jcode::euc_ucs2($ucs2);
}
sub ucs2_euc{
&Jcode::ucs2_euc($ucs2);
}
|
