質問掲示板

ＣＧＩなどのの質問を受付ます。現在SPAM対策の為、一部ホストアドレスを規制中。

No.1024　アニメーションGIFのチェックのルーチン

発言者：うしわか発言日： 2008 03/14 14:37 発言元： tetkyo146013.tkyo.te.ftth2.ppp.infoweb.ne.jp

　 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); }

▼関連発言
│
└◆1024:アニメーションGIFのチェックのルーチン [うしわか] 03/14 
　└◆1025:Re:アニメーションGIFのチェックのルーチン [moon] 03/14 
　　└◆1026:Re[2]:アニメーションGIFのチェックのルー [うしわか] 03/15 <

CGIROOM