▼スレッド
│
└◇1024:アニメーションGIFのチェックのルーチン [うしわか] 03/14 14:37

　└◇1025:Re:アニメーションGIFのチェックのルーチン [moon] 03/14 
　　└◇1026:Re[2]:アニメーションGIFのチェックのルーチン [うしわか] 03/15 <

Image::Magickの環境でアニメーションGIFのチェックを実現したい
のですが以下のサブルーチンを作ってみましたが？うまくいきません。
ご指導をお願いします。

$tailは拡張子(".gif")
$imgfileはファイルの名前（"./upl/123.gif"）です。



#アニメーションGIFのチェック
#アニメーションGIFなら$gifflg=1違うなら0を返す
sub gif_check {

my ($tail,$imgfile) =@_;
my $flg =0;

　　　　if( $tail eq ".gif" ){
　　　　open(CMD, "identify $imgfile |");
　　　　@output = <CMD>;
if(@output > 1){
　　　　　　　　$flg =1;
　　　　　　　　}
　　　　}
　　　　
　　　　return ($flg);
}

返り値を見ないといけないのでは？

open(IN,"identify -verbose xxx.gif |");
@output = <IN>;
if ( @output > 1 ){
　　　　foreach (@output) {
　　　　　　　　if (/Scene:/) { $ch++; last; }
　　　　}
　　　　if ($ch) { print "あにめじふだと思う"; } else { print 'x'; }
} else {
　　　　print $output[0] ."<br>\n";
　　　　print "ない";
}

※ Scene: がアニメGIF固有の情報かは知らない。

> 返り値を見ないといけないのでは？
>
> open(IN,"identify -verbose xxx.gif |");
> @output = <IN>;
> if ( @output > 1 ){
> 　　　　foreach (@output) {
> 　　　　　　　　if (/Scene:/) { $ch++; last; }
> 　　　　}
> 　　　　if ($ch) { print "あにめじふだと思う"; } else { print 'x'; }
> } else {
> 　　　　print $output[0] ."<br>\n";
> 　　　　print "ない";
> }

ありがとうございます。できました。でも、相当サーバーに負担が
かかりそうなので他の方法ですかね。