png画像をjpegに変換して、サイズを60*60にしようとして、 下みたいにしてると、生成される画像サイズが、60*80になる罠 use Imager; my $jpeg = Imager->new; $jpeg->read( data => $image->get('png150') ) or die $jpeg->errstr; my $scaled = $jpeg->scale( xpixels=>'60', ypixels=>'60' ) or die $jpeg->errstr; $scaled->write(data => \my $data , type => 'jpeg'); うぜ!! こうしたら直った my $scaled = $jpeg->scaleX(pixels=>'60')->scaleY(pixels=>'60') or die $jpeg->errstr;