連続して画像縦横サイズを取得するには

質問

質問があります。

画像ファイルの縦横ピクセルサイズを取得しようとしています。

取得に用いモジュールは「レス付き画像掲示板 imgboard v1.22.Rev6.1c」内にあったimgsize.plです。

やろうとしている大まかな流れとして

for(条件){
&imgsize($filename);
}

forの終了条件に達するまで画像サイズを取得し、その後の処理に繋げようと思っています。

今起こる現象としては、
$IMGSIZE{'width'}
$IMGSIZE{'height'}
の値が一番最初に取得した値のまま変わりません。

imgsizeを呼ぶ前に変数の変数の初期化なども行ったのですが、前の値を引き継いだままです。

---------------

試しに

&imgsize($filename1);

&imgsize($filename2);

といった感じで、連続してモジュールを呼んでみたのですが、$filename2の縦と横サイズは取得出来ず、$filename1のサイズが表示されてしましました。

imgsizeの中でundefをかけたり、my→local（その逆）も試したのですが、うまくいきませんでした。

特にimgsize.plモジュールにこだわるわけではないので、他のモジュールでもかまいません。ただ、レンタルサーバー（今後変わるかも・・）なので、インストールが必要なモジュールはできるだけ避けたいと思います。

何か方法ご存知の方ご教授頂けるとありがたいです。

回答No.1

guci-ok · ベストアンサー

使ったこと無かったですが、ダウンロードして使ってみました。
DOS窓からですが、うまくいっているように見えます。ただし、エラーの場合にエラーメッセージがセットされていないみたいです。

このスクリプトを実行してみて下さい。

D:\temp\imgboard122r61d>test.pl
call, file = 01.jpg
OK, width=240 heigtht=320
call, file = 02.gif
OK, width=1024 heigtht=738
call, file = test.pl
Error, msg=
And width=1 heigtht=1

------------- test.pl
#!Perl
require "imgsize.pl";

call("01.jpg");
call("02.gif");
call("test.pl");

sub call {
my $file = shift;
print "call, file = $file\n";
&imgsize($file);
if ($IMGSIZE{'result'} ==1 ) {
print "OK, width=$IMGSIZE{'width'} heigtht=$IMGSIZE{'height'}\n";
} else {
print "Error, msg=$IMGSIZE{'error_message'}\n";
print "And width=$IMGSIZE{'width'} heigtht=$IMGSIZE{'height'}\n";
}
}

__END__

お礼

ありがとうございます。わざわざ落として試してくれたのですね。本当にありがたいです。

当方、環境はlinux上です。

同じように、サブルーチン化して、ためしたのですが、駄目でした。前の状況と変わりませんでした。

もうすこし試してみたいと思います。

回答No.2

guci-ok

linux上で確認しました。
Red Hat 7.3, Perl 5.6.1

下のtest.plを実行し、Windows上と全く同じ結果になりました。
本当に下のtest.plを実行して、だめですか？
あ、先頭行は変えて下さいよ。
#!/usr/bin/perl
とか。

お礼

ありがとうございます。

Linux上でも確認してくれたんですね。

私の書き方がまずかったのかもしれないです。

>for(条件){
>&imgsize($filename);
>}

のサイズ取得の前にイメージのアップロード処理が入ります。

複数アップロードした画像のファイルサイズを測ろうとしています。

アップロード部分を省いてguci-okさんの書いてくれたモジュールと同様にすれば動きました。ですが、アップロード処理を入れると、２番目以降の画像サイズが取得できませんでした。

という状況です。

すいません。せっかく試して頂いているのに、説明不足で。