CGIなどのの質問を受付ます。
現在SPAM対策の為、一部ホストアドレスを規制中。
▼スレッド
│
└◇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 "ない";
> }
ありがとうございます。できました。でも、相当サーバーに負担が
かかりそうなので他の方法ですかね。