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
|
#!/usr/bin/perl
use strict;
use Unicode::Japanese;
our @charcodes = (
'jis', 'sjis', 'euc',
'sjis-imode', 'sjis-doti', 'sjis-jsky',
);
my $file = 'random.dat';
open(FILE,"<$file") or die "cannot open [$file]";
my $dat;
read FILE,$dat,8;
my ($count,$len) = unpack('NN',$dat);
printf "[%#08x] len:%d\n",$count,$len;
read FILE,$dat,$len;
{
my $src = $dat;
# ------------------------------------
# utf8 => jis/eucjp/etc.
#
my $str = Unicode::Japanese->new($src,'utf8');
foreach my $ocode ( @charcodes )
{
print "utf8=>$ocode...\n";
$str->conv($ocode);
}
# ------------------------------------
# jis/eucjp/etc. => utf8
foreach my $icode ( @charcodes )
{
print "$icode=>utf8...\n";
Unicode::Japanese->new($src,$icode);
}
}
print "done\n";
|
