|
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 ( つっこみ )
|
最近の日記 2024年07月03日 ・kicad oddity 2024年05月08日 ・comparison on ./buildsh tools 2024年05月06日 ・py-setuptools (python 3.11.9) ・make release took 1 hours and 10 min ・qemu invocation for 10.99.10 2024年05月05日 ・Windows 10 version ・serial connection ・bc bench 2024年05月04日 ・Trial on 10.99.10 ・another version (later trial) to succeed | ||