TSperl 発言

dune <FZH01112@...> さん wrote.

> 解説を見ると EUC とか Shift-JIS にも対応できるようなのですが、やり方が
> わからなくて今回は化け化けのままほっといてます。

惜しいですね。

>     open(LEGEND,">$legend_file") or die qq($! "$legend_file"\n);
>     recurse{
>         do{{
>             if(not s/\.pdf$//i){
>                 print qq(skip : $_\n)   if 0;
>                 last;
>             }

if 0; はコメントかな。

確か PDF は内部的に Unicode だったと思うので、Jcode か何かかませると EUC 
になりませんかね〜。あと、LEGEND というのに全部蓄えているようだけれど、
ファイルサイズが 179MB とかなってくるとエディタで簡単に開けませんよね。
ある程度の行数になったら分割したくなったり。

--
本田博通（閑舎）
テキストとスクリプトの http://rakunet.org/TSNET/