Perl ImageMagick：如何禁用命令 output 的打印？

Question

我有一個 Perl 腳本：

#!/usr/bin/perl

use strict;

use Image::Magick;

my $temp_filename = 'temp.webp';

my $im = Image::Magick->new;
my $m = $im->Read($temp_filename);

當我從命令行運行它時，我得到：

$ perl test.cgi
Decoded /tmp/magick-324583Dvjs7UCnJGp. Dimensions: 450 x 300. Now saving...
Saved file /tmp/magick-324589ZiUphKo482g
$

我期望（並且想要）：

$ perl test.cgi
$

是什么賦予了？

Answer 1

添加

$im->SetAttribute(quiet=>1);

為我解決了這個問題。

最終腳本：

#!/usr/bin/perl

use strict;

use Image::Magick;

my $temp_filename = 'temp.webp';

my $im = Image::Magick->new;
$im->SetAttribute(quiet=>1);
my $m = $im->Read($temp_filename);