五十音の並べ替えsortを教えて下さい。

解決済

質問者：station702
質問日時：2007/10/08 20:30
回答数：2件

はう
ぱあ
ばい
↓sort
はう
ばい
ぱあ
五十音でsortして以下のようにする方法を教えて下さい。
ぱあ
ばい
はう
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： putra0
回答日時：2007/10/09 13:36

国語辞典のようにソートしたければ Lingua::JA::Sort::JIS モジュールでできますよ。

# ソースコードのエンコーディングが Shift_JIS の場合

use strict;
use Lingua::JA::Sort::JIS;
use Encode qw/from_to/;

my $jis = Lingua::JA::Sort::JIS->new;

my @words = qw/はうぱあばい/;
# UTF-8 バイト列に変換（必須）
map { from_to($_, "Shift_JIS" => "UTF-8") } @words;

for my $word ($jis->jsort(@words)) {
# 必要に応じてエンコーディングを変換
from_to($word, "UTF-8" => "Shift_JIS");
print $word, "\n";
}

エンコーディングの変換が面倒ですが、UTF-8 のファイルから読んでそのまま書き出せばもっとすっきりします。

参考URL：http://search.cpan.org/~sadahiro/Lingua-JA-Sort- …

- 0
- 件

通報する

この回答へのお礼

ありがとうございました。
参考http://search.cpan.org/src/SADAHIRO/Lingua-JA-So …
#awk版
function aiu(moji1){
out1=moji1;
sub(/[あぁアァアァ]/ ,"あ",out1);
sub(/[かがカガヵカガ]/ ,"か",out1);
sub(/[さざサザサザ]/ ,"さ",out1);
sub(/[ただタダタダ]/ ,"た",out1);
sub(/[なナナ]/ ,"な",out1);
sub(/[はばぱハバパハバパ]/ ,"は",out1);
sub(/[まママ]/ ,"ま",out1);
sub(/[やゃヤャヤャ]/ ,"や",out1);
sub(/[らララ]/ ,"ら",out1);
sub(/[わゎワヮワ]/ ,"わ",out1);
sub(/[いぃイィイィ]/ ,"い",out1);
sub(/[きぎキギキギ]/ ,"き",out1);
sub(/[しじシジシジ]/ ,"し",out1);
sub(/[ちぢチヂチヂ]/ ,"ち",out1);
sub(/[にニニ]/ ,"に",out1);
sub(/[ひびぴヒビピヒビピ]/ ,"ひ",out1);
sub(/[みミミ]/ ,"み",out1);
sub(/[りリリ]/ ,"り",out1);
sub(/[ゐヰ]/ ,"ゐ",out1);
sub(/[うぅウヴゥウヴゥ]/ ,"う",out1);
sub(/[くぐクグクグ]/ ,"く",out1);
sub(/[すずスズスズ]/ ,"す",out1);
sub(/[つづっツヅッツヅッ]/ ,"つ",out1);
sub(/[ぬヌヌ]/ ,"ぬ",out1);
sub(/[ふぶぷフブプフブプ]/ ,"ふ",out1);
sub(/[むムム]/ ,"む",out1);
sub(/[ゆゅユュユュ]/ ,"ゆ",out1);
sub(/[るルル]/ ,"る",out1);
sub(/[えぇエェエェ]/ ,"え",out1);
sub(/[けげケゲヶケゲ]/ ,"け",out1);
sub(/[せぜセゼセゼ]/ ,"せ",out1);
sub(/[てでテデテデ]/ ,"て",out1);
sub(/[ねネネ]/ ,"ね",out1);
sub(/[へべぺヘベペヘベペ]/ ,"へ",out1);
sub(/[めメメ]/ ,"め",out1);
sub(/[れレレ]/ ,"れ",out1);
sub(/[ゑヱ]/ ,"ゑ",out1);
sub(/[おぉオォオォ]/ ,"お",out1);
sub(/[こごコゴコゴ]/ ,"こ",out1);
sub(/[そぞソゾソゾ]/ ,"そ",out1);
sub(/[とどトドトド]/ ,"と",out1);
sub(/[のノノ]/ ,"の",out1);
sub(/[ほぼぽホボポホボポ]/ ,"ほ",out1);
sub(/[もモモ]/ ,"も",out1);
sub(/[よょヨョヨョ]/ ,"よ",out1);
sub(/[ろロロ]/ ,"ろ",out1);
sub(/[をヲヲ]/ ,"を",out1);
sub(/[んンン]/ ,"ん",out1);
return out1}