euc2hin は、日本語 (EUC-JP) のテキストをひんたぼ語に変換するフィルタスクリプトです。 七行に詰め込む為、いわゆる半角カナ、数字、アルファベットの変換は行われません。 よりまともな変換処理を行うには ja2hin が適しています。
一行の定義は 「79 byte 以内の文字列 + LF」 としています。
●パッケージは頁下方にて配布
sub u{$1.$2.$D{unpack"C",$3}}sub h{*t=pop;$t.=sprintf'\x%X',$i+=$_;chr($i-pop).
pop}$i=160;map{$D{$j}=h*s;$j=$i}(2)x5,1,(2)x11,3,(@s=((2)x3,(1)x5)),(3)x5,(1)x4
,@s,2,3,1,-48,32,2,2;$i=170;$D{$i}=h"\xA1\xAB",1,*d for(2)x12,3,2,2,7,(3)x4;$i=
206;$D{$i}=h"\xA1\xAC",2,*d for(3)x5;$_='([X4X5])(['.$_.'])/@{[u]}'for$d,$s;
eval join'/g;s/'.join('\xA1-\xFE]',qw!\G((?:[\x00-\x7F]|[\x8E [ |\x8F[ [ )*?)!)
,map{s/X/\\xA/g;$_}@{['s//',$d,qw!X1XC/$1X1\xDF X1XB/$1X1XC X1X9/$1X1XB
([X4X5])\xE7/$1X1X9!,$s,'X1\\xBC/$1X4X2/g;print']}for<>
●ご注意: 当サイトにて公開されている製作物の作者は、 それら製作物の使用で生じた如何なる損害に対しても責任を負いません。 また、製作物やその利用方法に関する質問、製作物に対する要望等に、 作者は応える義務を持ちません。
● 当サイトにて公開されている製作物は、それぞれの作者が著作権を有します。 配布パッケージのライセンス文書に従ってお取り扱い下さい。 配布パッケージが存在しない場合は、作者の許諾なしに転載・再配布等は行えません。
● 当サイトは大塚製薬及び同社の製品とは一切関係ありません。 :-p