mieki256's diary

Windows + Perl で hns を動かすと画像サイズ取得がおかしくなるのでメモ。hns-lite-2.19.9.tar.gz で確認。

• 画像サイズの取得処理は、lib\Image\Size.pm で行ってる。
• gif または png を open した直後、バイナリで開けてるものと決めつけて各値を取り出してる。Linux上なら、このままでも問題無い。
• しかし、Windows + Perl では、ファイルを open するとテキストデータとして開いてしまうので、妙な値を取り出してしまう。

解決策は、open 直後に binmode(IN); を入れて、「バイナリデータとして扱え」とPerlに教えてやること。

ちなみに、jpeg に対しては binmode(IN); がちゃんと呼ばれてた。