hns - 日記自動生成システム - Version 2.19.9

先月 2003年11月 来月
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
Namazu for hns による簡易全文検索
詳しくは 詳細指定/ヘルプを参照して下さい
検索式:

2003年11月14日(金) 旧暦 [n年日記]

#1 [Perl] きょうの perl

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

その二:

#!/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−', '0-9A-Za-z-'); # 半角に置換する例

ipadic-2.4.4 から地名辞書:

ipadic-2.4.4)> ack -e Noun.place.dic | ~/perl/practice/kata-hira-tr | jless
#!/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



最近の日記
2020年09月24日
mule1.1-netbsd
2020年08月01日
R2pkg pingr fails
2020年07月19日
bulkbuild で chroot が使えない理由
bulkbuild で dhcp だとうまく行かない理由
2020年06月21日
sourceforge ban recovered
2020年05月27日
sudo service ssh start
以上、1 日分です。
タイトル一覧
カテゴリ分類
Powered by hns-2.19.9, HyperNikkiSystem Project

Count.cgi (since 2000/02/05)