#!/usr/pkg/bin/perl
# 2421      2521
# カタカナ・ひらがな関係一覧表
#                 21 ..   76
foreach my $i ( 0xa1 .. 0xf6 ) {
    push(@h,chr(0xa4)); push(@h,chr($i));
    push(@k,chr(0xa5)); push(@k,chr($i));
}
print '&jcode::tr(\$line,',"\n";
print '\'',@k;
print '\',',"\n";
print '\'',@h;
print '\');',"\n";
__END__

&jcode::tr(\$line, '０-９Ａ-Ｚａ-ｚ−', '0-9A-Za-z-'); # 半角に置換する例

#!/usr/pkg/bin/perl
require('jcode.pl');
while (<>) {
@token = split;
$yomi = $token[9];
$word = $token[6];
$word =~ s/\(//g;
$yomi =~ s/\)//g;
$line = $_;
&jcode::tr(\$yomi,
'ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲンヴヵヶ',
'ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをん???');

printf("%-30s %-15s 地名 2\n", $yomi, $word);
}
__END__
## {ながす/ながず} 長洲 地名 2