pobox touch

全角数字を入力しやすいIME、辞書登録方法が糞みたいなのしかなかったのでなんとかならないかと思っていたが、検索したところ記事があった

Poboxの辞書にGoogle日本語入力の辞書を引き継ぐ

ATOKの辞書も同じようにできるかと思ったが、エンコードがUTF16だったので、perlスクリプトを書いた

#!/usr/bin/perl -w
# ATOKから書きだした辞書を、Pobox touch用に整形します
# 例 perl -f atok2pobox.pl < atokdic.txt > JPNUserDict.txt
# あっつう	圧痛	名詞*  →　あっつう\t圧痛
use strict 'refs';
use utf8;
use Encode;
binmode STDOUT, ":utf8";
binmode STDIN, ":encoding(UTF-16)";

LINE: while (<STDIN>) {
	chomp;
	next LINE if /^!/;		# comment skip
	@ans = split(/\t/);
	next if($#ans<1);
	print $ans[0] . "\t" . $ans[1] . "\n";
}