画像比較をやりたい
現在、ホームページ上で静止画によるライブ中継をやっています。
仕掛けは至って単純でして(^^;)
LANカメラからwebサーバにFTPで送った画像のうち、一定の時間間隔で
最新画像を表示しています。
まぁ、これだけなら、いいのだけど・・・ ちょっと欲が出まして(^^;)/
今のしかけでは、LANカメラが送ってくる画像ファイルの名称が年月日
時分秒になっています。って、ことはどんどん、画像がたまる(^^;)
そこで、変化のあった画像だけ残して、変わり映えのしない画像を
削除しようと思っています。
つまり、最新画像を探すついでに画像の内容を判定して、同じような
画像を残さないようにしたいのです。まぁ、少なくとも前回表示した
画像と今度表示しようとする画像がそっくりだと、古い画像を削除
するわけです。
さて、ここから本題です。
手元にそのサーバが無いので、自分のWindows機で試すべく、
ActivePerlを入れて、更に”Image::Compare”って言うモジュールを
取り込みました。
この状態で、画像を比較するプログラムをPerlで書いたのですが、
実行してみると、”Image::Compare”の中なのかな(^^?)
”Compare.pm”の127行目のreadでエラーになっているみたいです。
Unable to read image data from file 'xxx.jpg': 'format 'jpg' not supported
って、エラーメッセージが出ました。
こんな時、どこから調べれば良いのでしょうか？
ご教示いただければ、幸いです(_"_)
