sort関数でひらがなとカタカナを一緒に並べるには

質問

("いちご","リンゴ","サクランボ","みかん")
が入ったリストを、「sort」関数で並び替えすると

いちご、みかん、サクランボ、リンゴ

このように前半にひらがな、後半にカタカナで処理されます。それを、

いちご、サクランボ、みかん、リンゴ

このようにひらがなとカタカナを混ぜて五十音順にしたいのですが、
どうすればいいのでしょうか

よろしくお願いします

回答No.1

BLUEPIXY · ベストアンサー

#こんな感じでどうでしょう
use encoding 'shiftjis';

@data=("いちご","リンゴ","サクランボ","みかん");

foreach $x (@data){
$data{$x}=&toKana($x);
}

@data=sort { $data{$a} cmp $data{$b} } keys %data;

sub toKana($){
my $str = shift;
$str =~ tr/ぁ-ん/ァ-ン/;
return $str;
}

お礼

解決しました
ありがとうございました！

回答No.2

guci-ok

ひらがな、かたかな、どちらかに変換した文字を先頭においてからソートしては？
ShiftJISであればですが、以下のように。

#!Perl
use ShiftJIS::String;

@kana_list = ('いちご', 'みかん', 'サクランボ', 'リンゴ');
print "1st state:\n", join("\n", @kana_list), "\n\n";

for (@kana_list) {
my $tmp = $_;
ShiftJIS::String::strtr(\$tmp, 'ぁ-ん', 'ァ-ン', 'o');
$_ = $tmp . "\t" . $_;
}
print "2nd state:\n", join("\n", @kana_list), "\n\n";

@kana_list = sort @kana_list;
print "3nd state:\n", join("\n", @kana_list), "\n\n";

$_ = (split(/\t/, $_))[1] for @kana_list;
print "4th state:\n", join("\n", @kana_list), "\n\n";

__END__

D:\@ai\@Perl\app>KANA_SORT.pl
1st state:
いちご
みかん
サクランボ
リンゴ

2nd state:
イチゴ いちご
ミカン みかん
サクランボ サクランボ
リンゴ リンゴ

3nd state:
イチゴ いちご
サクランボ サクランボ
ミカン みかん
リンゴ リンゴ

4th state:
いちご
サクランボ
みかん
リンゴ

D:\@ai\@Perl\app>

お礼

難しいですね＾＾；

ありがとうございましたm(_ _)m