研究社の「EPWING版 日本語表現活用辞典」を購入した（データサイズ2.24MB）。語数は動詞・形容動詞 1544語と多くはなく、インデックスも前方一致表記形と後方一致表記形しかない。しかし、見出し語ごとに意味的な分 類や用法の分類があり、そのあとに例文・慣用句・複合語が合計２万５０００以上収録されており、日本語のコロケーション（語と語のつながり）を見るのに役 立ちそうだ。本で見るのと同じように見出し語ごとに閲覧することもできるし、パソコンの検索ソフト（DDWinやViewIng）を使えば全文検索もでき る。Buckingham EB Playerでは、前方一致インデックスを使った完全一致検索しかできないが、それでも書籍版の「日本語表現活用辞典」と同程度の活用は可能だ。しかし、 このEPWING版には「見出し」に重大な問題があった。

１）この辞書の見出しでは、複数の表記法があると、中点（・）で区切って列記している （例：「いく・ゆく」、「上がる・挙がる・揚がる」）。そしてこれをそのままインデックスにしている。つまり「いく」「ゆく」として別々の語で索引に挙げ るところを、「いく・ゆく」として１語で索引に登録している。これではインデックスとして機能しない。
２）パソコン上で漢字で検索すると、結果表示の見出しにかなの読みの部分は表示されない（Buckingham EB Playerでは見出しそのものが表示されない）。これは仕様なのであろうが、やはり読みも表示されたほうがいい。

１）「前方一致表記形インデックス」中の中点で列挙されている語をすべてばらばらにし て、 インデックスを再構成する。
２）漢字のインデックスが指し示す先を、本文の見出しの先頭に書き換える。

１）前方一致表記形インデックスのダンプ

２）前処理

３）前方一致表記形インデックスの書き換え
# hyogen.pl (v2)
open(HONMON, "+<honmon");
open(MAIN, "<honmon");
binmode HONMON;
binmode MAIN;
$entry=0x100;
open(INDEX, "index.txt");
@temp=<INDEX>;
@index=sort(@temp);
close(INDEX);
#ID:00
seek(HONMON, 0, 0);
read(HONMON, $tbl[0], 16);
$idno=ord(substr($tbl[0], 1, 1));
for($i=1; $i<=$idno+2; $i++){
    read(HONMON, $tbl[$i], 16);
    ($id, $a, $adr, $b, $sum)=unpack("C a3 n a2 n", $tbl[$i]);
    if ($id==0x91) {
        $id91=$i;
        $topadr=$adr;
        $lastadr=$adr+$sum-1;
        $adr1=$adr
    };
}
#ID:60
seek(HONMON, 0x0800*($adr1-1), 0);
read(HONMON, $buf, 22);
($a, $adr3)=unpack("a20 n", $buf);
# reconstruction
sub jis {
    $len=length($_[0]);
    $w="";
    for($i=0; $i<$len; $i=$i+2) {
        $code=unpack("n", substr($_[0], $i, 2));
        if ($code >= 0xE000) {$code=$code-0x4000}
        $low=$code % 256;
        $high=($code-$low) / 256;
        $high=($high-0x81)*2;
        if ($low >= 0x80) {$low=$low-1}
        if ($low >= 0x9E) {
            $code=0x2121+$high*256+$low+0x62;
        }
        else {
            $code=0x2121+$high*256+$low-0x40;
        }
        $w=$w.pack("n", $code);
    }
    $w;
}
sub output {
    local($id, $wl, $ct, $blk, $adr) = @_;
    $head=pack("CCn", $id, $wl, $ct);
    substr($blk, 0, 4)=$head;
    seek(HONMON, 0x800*($adr-1), 0);
    print HONMON $blk;
}
$id3=0xC0;
$pt=4;
$ct1=0;
$ct3=0;
$blk1=pack("x2048", );
$blk3=pack("x2048", );
while(@index) {
    $item=shift(@index);
    @k=split(/\t/,$item);
    $dlen=length($k[0])+13;
    $k0=&jis($k[0]);
    $k1=pack("C",length($k0));
    $k2=hex($k[2]);
    $k3=hex($k[3]);
    $k4=hex($k[4]);
    $k5=hex($k[5]);
        $point=0x800*($k2-1)+$k3;
        seek(MAIN, $point, 0);
        read(MAIN, $buf, 4);
        $delim=unpack("N", $buf);
        if($delim!=0x1F090002) {
            seek(MAIN, $point-$entry,0);
            read(MAIN, $buf, $entry);
            $hit=rindex($buf, pack("N", 0x1F090002));
            $new=$point-$entry+$hit;
            $k3=$new % 0x800;
            $k2=($new-$k3)/0x800+1;
        }
    $dat=$k1.$k0.pack("xxnnxxnn",$k2,$k3,$k4,$k5);
    if ($pt+$dlen > 2048) {
        &output($id3, 0, $ct3, $blk3, $adr3);
        substr($blk1, 4+18*$ct1, 18)=pack("a14xxn", $k0, $adr3);
        $ct1++;
        $pt=4;
        $adr3++;
        $blk3=pack("x2048", );
        $ct3=0;
        $id3=0x80;
    }
    substr($blk3, $pt, $dlen)=$dat;
    $pt=$pt+$dlen;
    $ct3++;
}
$ff=sprintf("%c", 0xff) x 14;
$id3=0xA0;
&output($id3, 0, $ct3, $blk3, $adr3);
substr($blk1, 4+18*$ct1, 18)=pack("a14xxn", $ff, $adr3);
$ct1++;
$id1=0x60;
&output($id1, 14, $ct1, $blk1, $adr1);
#closing
$blk3=pack("x2048", );
for($i=$adr3+1; $i<=$lastadr; $i++){
    &output(0, 0 ,0 ,$blk3, $i);
}
substr($tbl[0], 1, 1)=pack("C", $idno+1);
substr($tbl[$id91], 8, 2)=pack("n", $adr3-$topadr+1);
$tbl[$idno+2]=$tbl[$idno+1];
substr($tbl[$idno+1], 0, 10)=pack("Cxxxnxxn", 0x12, $adr3+1, $lastadr-$adr3);
seek(HONMON, 0, 0);
for($i=0; $i<=$idno+2; $i++){
    print HONMON $tbl[$i];
}
close(HONMON);
close(MAIN);