Perl ImageMagick:如何禁用命令输出的打印?
Perl ImageMagick: how to disable printing of command output?
我有一个 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
$
什么给了?
添加
$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);
我有一个 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
$
什么给了?
添加
$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);