펄로 이미지를 좀 다뤄볼까 하는데 에러에 막혀 영 진도를 못 나가서 질문 좀 드립니다.

$ yum list installed | grep "libjp"
libjpeg.i386                            6b-37                          installed
 
 
cpan[1]> install Imager
CPAN: Storable loaded ok (v2.21)
Going to read '/root/.cpan/Metadata'
  Database was generated on Sun, 22 Nov 2009 06:27:04 GMT
Imager is up to date (0.71).
 
 
 
 
$ cat thumbmake.pl
#!/usr/bin/perl -w
# Thumbnail example
# <a href="http://search.cpan.org/~addi/Imager-0.41/Imager.pm
use" rel="nofollow">http://search.cpan.org/~addi/Imager-0.41/Imager.pm
use</a> strict;
use Imager;
 
die "Usage: thumbmake.pl filename\n" if !-f $ARGV[0];
my $file = shift;
 
my $format;
 
my $img = Imager->new();
$img->open(file=>$file) or die $img->errstr();
 
$file =~ s/\.[^.]*$//;
 
# Create smaller version
my $thumb = $img->scale(scalefactor=>.3);
 
# Autostretch individual channels
$thumb->filter(type=>'autolevels');
 
# try to save in one of these formats
SAVE:
 
for $format ( qw( png gif jpg tiff ppm ) ) {
  # Check if given format is supported
  if ($Imager::formats{$format}) {
    $file.="_low.$format";
    print "Storing image as: $file\n";
    $thumb->write(file=>$file) or
      die $thumb->errstr;
    last SAVE;
  }
}
 
 
 
 
$ perl thumbmake.pl 090831042134_887006618_b.jpg
format 'jpeg' not supported - formats bmp, ico, pnm, raw, sgi, tga available for reading at thumbmake.pl line 13.
 
 
 
http://search.cpan.org/~addi/Imager-0.41/Imager.pm