APM: Perl GIF Integrity Check?
Wayne Walker
wwalker at bybent.com
Wed Dec 1 08:17:06 CST 2004
I'd recommend using ImageMagick or GD. you should be able to call
load_image() or whatever and it should return success or failure.
That would validate the images I'd think.
This is all just a SWAG though. YMMV.
On Wed, Dec 01, 2004 at 01:03:24AM -0600, David Bluestein II wrote:
> Okay, weird problem. I've got a directory of a pile of thumbnails
> on server a, that is rsync'd to server b. Now some of the GIF files
> on server a are bad (same filesize, modify date, etc.) due to a disk
> problem and cannot be viewed. Is there a way in Perl that I can validate
> which files on server a are not valid GIF files? I want to delete them
> and restore from server b which has valid copies, but do not want to
> restore all the files.
>
> I basically need:
>
> for (@filelist) {
> unless (validatefileisvalidgif ($_) {
> unlink $_;
> }
> }
>
> Anyone know of a quick validefileisvalidgif function/module? I'd even settle for a shell script.
>
> David
--
Wayne Walker
wwalker at bybent.com Do you use Linux?!
http://www.bybent.com Get Counted! http://counter.li.org/
Perl - http://www.perl.org/ Perl User Groups - http://www.pm.org/
Jabber: wwalker at jabber.ntrc.net AIM: lwwalkerbybent
IRC: wwalker on freenode.net
More information about the Austin
mailing list