On Sun, 6 Oct 2002 14:18:53 -0300, [EMAIL PROTECTED] ([EMAIL PROTECTED]) wrote:

>Hello Is there a function to test if a given.jpg file is a valid jpg file? thanks

You can use the "ping" method of Image:Majick and test whether
it gives an error.
##########################################################
#!/usr/bin/perl -w
use Image::Magick;

my $x = $ARGV[0];
my $image;
$image = Image::Magick->new;

($width, $height, $size, $format) = $image->Ping($x); 
print $width,"\n", $height,"\n" ,$size,"\n", $format,"\n";
#########################################################


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to