▼スレッド
│
└◇1025:Re:アニメーションGIFのチェックのルーチン [moon] 03/14 16:52

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

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

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 "ない";
> }

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