#!perl
# a sample of kan'i daihyo yomi shogo

use ShiftJIS::Collate;

my @data = (
  [qw/ λ計算   らむだけいさん /],
  [qw/ JIS番号  じすばんごう   /],
  [qw/ 安達     あだち         /],
  [qw/ 安藤     あんどう       /],
  [qw/ 河西     かさい         /],
  [qw/ 河内     かわち         /],
  [qw/ 角田     かくた         /],
  [qw/ 角田     かどた         /],
  [qw/ 如月     きさらぎ       /],
  [qw/ 幸山     こうやま       /],
  [qw/ 河内     こうち         /],
  [qw/ 佐藤     さとう         /],
  [qw/ 佐和田   さわだ         /],
  [qw/ 幸山     さきやま       /],
  [qw/ 沢島     さわしま       /],
  [qw/ 沢田     さわだ         /],
  [qw/ 澤田     さわだ         /],
  [qw/ 土井     つちい         /],
  [qw/ 土居     つちい         /],
  [qw/ 槌井     つちい         /],
  [qw/ 角田     つのだ         /],
  [qw/ 土井     どい           /],
  [qw/ 土居     どい           /],
  [qw/ 土岐     とき           /],
  [qw/ 戸井     とい           /],
  [qw/ 戸田     とだ           /],
  [qw/ 安田     やすだ         /],
);

use ShiftJIS::CP932::MapUTF;

$touni = sub { unpack('v', cp932_to_utf16(shift)) };

@sort = ShiftJIS::Collate->new(
    kanji => 3, tounicode => $touni
  )->sortDaihyo(reverse @data);

print "@$_\n" foreach @sort;

