如何使用PerlMagick編寫無損WebP文件

Question

我正在嘗試使用Graphics :: Magick將PNG文件轉換為Perl中的無損WebP。 命令行是：

$ gm convert in.png -define webp:lossless=true out.webp

我的Perl代碼如下所示：

use Graphics::Magick;

my $image = Graphics::Magick->new();
$image->Read("in.png");
my $image_data = $image->ImageToBlock(magick => "webp");
print $out_fh $image_data;

這段代碼完美地編寫了有損WebP文件，但是如何用Perl API表示“ -define”呢？

謝謝，

更新：看來我需要調用AddDefiniton API函數（ http://www.graphicsmagick.org/api/image.html#adddefinition ）。 到目前為止，它似乎尚未通過Perl API導出。

Answer 1

我知道這對您沒有幫助，但是對於那些對如何使用PHP感興趣的人來說，方法如下：

$im = new \Gmagick($src);
$im->setimageformat('WEBP');

// Not completely sure if setimageoption() has always been there, so lets check first.
if (method_exists($im, 'setimageoption')) {
    $im->setimageoption('webp', 'lossless', 'true');
}
$imageBlob = $im->getImageBlob();
$success = @file_put_contents($destination, $imageBlob);

有關更多webp選項，請查看此代碼