たとえば，以下のいくつかの言葉を「辞書順に」並べると，次のようになるだろう。

   さつき	皐月
   さっき	殺気
   ざつき	座付
   ざっき	雑記
   さっきん	殺菌
   さつま	薩摩
   さんばし	桟橋

　ところが，これを perl に組み込まれている sort 関数でソートすると，以下の順になってしまう。

   さっき	殺気
   さっきん	殺菌
   さつき	皐月
   さつま	薩摩
   さんばし	桟橋
   ざっき	雑記
   ざつき	座付

　何だかバラバラのようだが，コンピュータ的にはこれで合っている。おそらく，他の言語でも一般的な組み込みソート機能を使ったら，同じような結果になるのではないか。でも，なぜそうなるか，原因と回避策などを考えてみたい。

　それは，文字コードにある。sort 関数は，原則として，単純に文字コード順に並べ替える機能だ。
　で，その比較がどうされているかというと，まず，なぜか小さい文字（「ぁぃぅぇぉっゃゅょ」など）に，そうでないものよりも小さい文字コードが割り当てられているため，文字コード順に並べると，それらが先に来てしまうという点。それと，コンピュータの辞書順比較では，前にある文字が優先的に評価される，という２点が原因。
　小さい字のほうが先に来るため，「さつき（皐月）」は，２文字目の「つ」が促音の「っ」より大きい文字コードのために，促音の「さっき（殺気）」や「さっきん（殺菌）」のほうが前に来てしまう。
　さらには，逆に濁音と半濁音は清音の字より大きい文字コードが割り当てられているため，最初の文字が「ざ」のものは全ての「さ」より後になる。そのため，濁音で始まる「ざっき（雑記）」は，清音で始まる「さんばし（桟橋）」よりも後に来てしまうことになる。

　実際の日本語の辞書はそうではないはず。まず「全て清音読み」した順に並べられて，その中で「小さい字」や「濁音，半濁音」が使われているものが後に来るようになる。だから，「さつき，さっき，ざつき，ざっき，さっきん」はこの順になる。「さつま」や「さんばし」などの後に来ることはないはずだ。

　どうすればいいか。これは，まず全て「小文字ではない清音」で比較し，それで等しい場合に，小さい字か濁音，半濁音かを調べる……という「二段比較」が必要だと思う。
　表計算ソフトの「並び替え」で，「最優先する列」と「二番目に優先する列」……など，並び替えの基準にする値として複数の列を指定できるが，それと似たやり方が必要だろう。

　たとえば前述の「さつき，さっき，ざつき，ざっき」の場合は，まず優先する比較キーとして，全て小文字ではない清音の「さつき」で比較する。当然それでは全て同じになってしまうので，２番めの比較キーとして，小文字か濁音か……を示す別の値を求める必要が出てくる。たとえば，以下のような数値を割り当てる。

• ０: 小文字ではない清音
• １: 小文字（促音，拗音，ぁぃぅぇぉ）
• ２: 濁音
• ３: 半濁音

　前述の４つの言葉は，小文字でない清音で比較すると全て「さつき」となって同じだが，前述の法則で「２番めの比較キー」を作ると，以下のようになる。

• 「さつき」→000
• 「さっき」→010
• 「ざつき」→200
• 「ざっき」→210

　この右側の数を元に「辞書順に」並び替えれば，日本語の辞書に出て来る順番になる。
　ここで，この数のほうも「辞書順に」並び替える必要がある。というのは，たとえば「さっきん」は 0100 と４桁になるが，数値で比較すると，「ざつき」の 200 より小さくなってしまう。もっとも，優先キーの「さつき」と比較すると，文字数が多いからその時点で後になるはずだが，念のため。

　この方法で並び替えれば，文字コードに関係なく，小文字でない言葉を小文字よりも前に来るようにすることができる。

◆ Perl の場合

　sort に渡して処理可能な順序定義関数を kanaCmp とすると……。

   my	%sortBase = # ひらがな → ソート文字＆キーペアハッシュ
	( ……,	'っ' => 'つ1', # 促音
		'つ' => 'つ0', # 清音
		'づ' => 'つ2', # 濁音
		……,
		'は' => 'は0', # 清音
		'ば' => 'は2', # 濁音
		'ぱ' => 'は3', # 半濁音
	…… ); # 実際はひらがな全てに定義
   my	%kanaSortDic;
   sub kanaSortKeyPair { my ( $k0, $k1 ) = ( '', '' );
	if( ! exists $kanaSortDic{ $_[0] } ){
	( "a".$_[0] )=~ /a/; # ↓ UTF-8 限定の処理
	  while( $' =~ /[\xC0-\xFD][\x80-\xBF]+/ ){
	  $k0 .= substr( $sortBase{ $& }, 0, 3 );
	  $k1 .= substr( $sortBase{ $& }, 3, 1 );
	  }
	$kanaSortDic{ $_[0] }= { k0 => $k0, k1 => $k1 };
	}
	return $kanaSortDic{ $_[0] };
   }
   sub kanaCmp {
    my ( $a, $b ) = ( kanaSortKeyPair( $_[0] ),
		kanaSortKeyPair( $_[1] ) );
	return ( $a ->{ k0 } cmp $b ->{ k0 } )||
			( $a ->{ k1 } cmp $b ->{ k1 } );
   }
	sort { kanaCmp( $a, $b ) } @wordList; # ← 使用例

◆ OpenOffice Basic の場合

　OpenOffice のマクロ関数を使うとしたら，こんな感じ。ここで asc という関数は UNICODE にも対応している。表計算で，ひらがな表記の「読み」が A 列にあるとしたら，“=KEY0( A1 )”と“=KEY1( A1 )”といった式を設定したセル列を作って，それぞれ最優先，第２優先の列としてソートすることで使える。

   function key0( str1 as string ) as String
   Dim res As String
   res = ""
	for n = 1 to len( str1 )
	p = asc( Mid( str1, n, 1 ) )
	  if 12352 < p and p <= 12438 then
	  res = res & Mid( "ああいいううええおおかかききくくけけここささししすすせせそそたたちちつつつててととなにぬねの"& _
		"はははひひひふふふへへへほほほまみむめもややゆゆよよらりるれろわわゐゑをんうかけ", p-12352, 1 )
	end if
	Next
   key0 = res
   end function
   function key1( str1 as string ) as String
   Dim res As String
   res = ""
	for n = 1 to len( str1 )
	p = asc( Mid( str1, n, 1 ) )
	  if 12352 < p and p <= 12438 then
	  res = res & Mid( "10101010100202020202020202020202021020202000000230230230230230000010101000000100000211", p - 12352, 1 )
	  end if
	Next
   key1 = res
   end function