▼スレッド
│
└◇1026:Re[2]:アニメーションGIFのチェックのルーチン [うしわか] 03/15 16:41

> 返り値を見ないといけないのでは？
>
> 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 "ない";
> }

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