ImageMagick and Perl

[kjhjhjhjadsasda]

Hi,

Im trying to get ImageMagick working on my VPS. Below code used to work
on a previous VPS, but now all I get written is $file1, never $file2.
Problem is, I dont even know how to debug it... Any clues?

$url="someimage.jpg";
$file1="pathonmyserver/something1.jpg";
$file2="pathonmyserver/something2.jpg";

my $response=LWP::UserAgent->new->get($url,':content_file'=>$file1);
$img=Image::Magick->new;
$img->Read($file1);
$img->Scale(geometry=>'548x308');
$img->Resize(width => 548, height => 308);
$img->Write(filename=>$file2);
undef $img;

Thanks!

 

[usenet]

on a previous VPS, but now all I get written is $file1, never $file2.

Ummm, that's because you never read or write $file2.

 

[Gunnar Hjalmarsson]

Im trying to get ImageMagick working on my VPS. Below code used to work
on a previous VPS, but now all I get written is $file1, never $file2.
Problem is, I dont even know how to debug it... Any clues?

First clue:

use strict;
use warnings;

$img->Write(filename=>$file2);

my $err = $img->Write($file2) and die $err;

 

[zentara]

Hi,

Im trying to get ImageMagick working on my VPS. Below code used to work
on a previous VPS, but now all I get written is $file1, never $file2.
Problem is, I dont even know how to debug it... Any clues?

$url="someimage.jpg";
$file1="pathonmyserver/something1.jpg";
$file2="pathonmyserver/something2.jpg";

my $response=LWP::UserAgent->new->get($url,':content_file'=>$file1);
$img=Image::Magick->new;
$img->Read($file1);
$img->Scale(geometry=>'548x308');
$img->Resize(width => 548, height => 308);
$img->Write(filename=>$file2);
undef $img;

Thanks!

Here is a thumbnail script, written by Merlyn, which shows how
to use IM in a loop cleanly, and see the error messages if any.
It's a bit tricky.

#!/usr/bin/perl

# by Merlyn

use strict;
use Image::Magick;
my $im = Image::Magick->new;

umask 0022;

my @names = @ARGV ? @ARGV : grep { -f and -B } <*>;

for (@names) {
if (/ /) {
my $old = $_;
tr, ,_,s;
$_ .= ".jpg" unless /\.jpg$/;
!-e and rename $old, $_ or next;
warn "renaming $old to $_\n";
}
next if /\.thumb\.jpg$/;
my $thumb = "$_.thumb.jpg";
next if -e $thumb;
undef @$im;
my $ret;
$ret = $im->Read($_)
and warn($ret), next;
$ret = $im->Scale( geometry => '100x100' )
and warn($ret), next;
$ret = $im->Write($thumb)
and warn($ret), next;
warn "thumbnail made for $_\n";
}
__END__

 

[Gunnar Hjalmarsson]

Im trying to get ImageMagick working on my VPS. Below code used to work
on a previous VPS, but now all I get written is $file1, never $file2.
Problem is, I dont even know how to debug it... Any clues?
[snip]

$img->Write(filename=>$file2);

How 'bout checking the return value of Write(), which should be the
number of images (successfully) written?

Are you sure of that? Please see the examples posted by me and zentara.

 

[Gunnar Hjalmarsson]

No, but that's what's written in the documentation.

The documentation isn't all that easy to understand. Please compare

http://www.imagemagick.org/script/perl-magick.php#read

and

http://www.imagemagick.org/script/perl-magick.php#exceptions

Guess everybody is right.