Question

我使用下面的代码从大图像中获取缩略图。

我正在使用图像魔法。

$thumbnail_width = 100;
$thumbnail_height = 60;

open my $file, "data2";
$image_data = <$file>;
create_thumbnail($image_data);


sub create_thumbnail {
    my ($image_data, $garb) = @_;
    use Image::Magick;
    #my $image = Image::Magick->new(magick=>'jpg');
    #my $image = Image::Magick->new(magick=>'png');
    #print "===>$image_data<===";
    my $image = Image::Magick->new;
    $error = $image->BlobToImage($image_data);
    print "1--".$error;
    $error = $image->SetAttribute(quality => 80);
    print "2--".$error;
    $error = $image->SetAttribute(compression => 'JPEG');
    print "3--".$error;
    $error = $image->Thumbnail(width => $thumbnail_width, height => $thumbnail_height);
    print "4--".$error;
    my $thumbnail_data = $image->ImageToBlob();

    print "Content-type: image/jpeg\nContent-length: " . length($thumbnail_data) . "\n\n";
    print STDERR "===>$thumbnail_data<=====";
    #print $thumbnail_data;
}

我收到以下错误。

1 - 例外425：图像尺寸为负或零' @ error/gif.c/ReadGIFImage/13692--3--4--Exception 410: no images defined缩略图'@ error / Magick.xs / XS_Image__Magick_Mogrify / 7403Content-type：image / jpeg 内容长度：

我想要创建缩略图图像的图像是PNG类型。我正在使用ImageMagick-6.9.1-2。

Answer 1

您只是在第一次出现\n时才读取输入，因此您将未完成/损坏的数据传递给create_thumbnail函数。

将文件句柄的全部内容加载到标量变量的规范方法如下：

open my $file, "data2";
$image_data = do { local $/; <$file> };

但是如果local $/看起来太深奥，那么它们是等价的：

$image_data = join '', <$file>;

use File::Slurp;
$image_data = read_file("data2");  # don't need $file handle

使用Perl Image :: Magic创建png图像的缩略图

1 个答案: