Как писать файлы WebP без потерь с PerlMagick

Question

Я пытаюсь конвертировать PNG-файлы в WebP без потерь в Perl с помощью Graphics::Magick. Командная строка для этого:

$ 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, но как я могу выразить "-define" в терминах Perl API?

Спасибо,

Обновление: похоже, мне нужно позвонить AddDefiniton Функция API ( http://www.graphicsmagick.org/api/image.html). Похоже, что он не экспортируется через 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, проверьте этот код