On Mon, 20 Mar 2006 15:06:44 +0800, parrotsqlite parrotsqlite wrote:
Hi Parrot
I have a few suggestions:
> #!/usr/bin/perl
> use Image::Magick;
use strict;
use warnings;
> my($image, $x);
print ("Found y.jpg\n") if (-e 'y.jpg');
What does this print?
> $image = Image::Magick->new;
> $x = $image->Read("y.jpg");
> warn "$x" if "$x";
>
> $x = $image->Crop(geometry=>'100x100+100+100');
> warn "$x" if "$x";
>
> $x = $image->Write('x.png');
> warn "$x" if "$x";
>
> corrent directory have y.jpg file,but i run the perl script,the
> stdout:
>
> Exception 435: unable to open image `': No such file or directory
> at t123.plline 8.
> Exception 410: no images defined ``%s'' at t123.pl line 11.
> Exception 410: no images defined ``%s'' at t123.pl line 14.
>
>
> why? I sure corrent directory exists file that y.jpg who can help
> me?
>
> thanks!
> _______________________________________________
> Magick-users mailing list
> [email protected]
> http://studio.imagemagick.org/mailman/listinfo/magick-users
--
Cheers
Ron Savage, [EMAIL PROTECTED] on 20/03/2006
http://savage.net.au/index.html
Let the record show: Microsoft is not an Australian company
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users
