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

use ShiftJIS::Collate;

my @data = (
  [qw/ ɌvZ   ނ /],
  [qw/ JISԍ  ΂񂲂   /],
  [qw/ B              /],
  [qw/      ǂ       /],
  [qw/ ͐              /],
  [qw/ ͓     킿         /],
  [qw/ pc              /],
  [qw/ pc     ǂ         /],
  [qw/ @     炬       /],
  [qw/ KR            /],
  [qw/ ͓              /],
  [qw/      Ƃ         /],
  [qw/ ac   킾         /],
  [qw/ KR            /],
  [qw/      킵       /],
  [qw/ c     킾         /],
  [qw/ Vc     킾         /],
  [qw/ y              /],
  [qw/ y              /],
  [qw/ ƈ              /],
  [qw/ pc     ̂         /],
  [qw/ y     ǂ           /],
  [qw/ y     ǂ           /],
  [qw/ y     Ƃ           /],
  [qw/ ˈ     Ƃ           /],
  [qw/ ˓c     Ƃ           /],
  [qw/ c     ₷         /],
);

use ShiftJIS::CP932::MapUTF;

$cjk = sub { [ unpack('v', cp932_to_utf16(shift)), 50, 20, 10, 1 ] };

@sort = ShiftJIS::Collate->new( overrideCJK => $cjk )
  ->sortDaihyo(reverse @data);

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