在perl中将图像转换为WMF格式

我在Ubuntu服务器上有一个网站，我需要能够以WMF格式下载图像（它们存储为JPGs）。ImageMagick可以读取WMF，但不能写入。UniConvertor不能正常工作（sk1libs错误），所以我想我可以尝试使用GD进行转换，但我遇到了一点困难，主要是因为我是一只大脑非常小的熊

我找到了Image:：WMF模块，因此我可以创建一个新图像并以正确的格式保存它，但是如何将图像数据复制到新的图像对象中呢？尽管有一个类似GD的接口，但它没有“复制”功能

Image：：Base：：GD的手册页说它可以另存为WMF，但如果我尝试，调用save（）时会出错

。。告诉我

无法通过包“GD:：Image”找到对象方法“wmf”

---

我可能真的很愚蠢，但如果有人能指出正确的方法（或更好的方法！），我将不胜感激。

请参阅蜡染工具包，用于wmf到svg的转换。它不是用perl编写的，但可能有帮助。不，我需要的是wmf，不是svg。（svg仅为矢量）上有一个关于如何创建.wmf文件的非常清晰的示例。你试过了吗？你试过把“-file_format”放在“new”里面吗$image=image:：Base:：GD->new（-file=>'/some/filename.jpg'，-file_format=>“wmf”）；请参阅蜡染工具包，了解wmf到svg的转换。它不是用perl编写的，但可能有帮助。不，我需要的是wmf，不是svg。（svg仅为矢量）上有一个关于如何创建.wmf文件的非常清晰的示例。你试过了吗？你试过把“-file_format”放在“new”里面吗$image=image:：Base:：GD->new（-file=>'/some/filename.jpg'，-file_format=>“wmf”）；

use Image::WMF;
use Image::Base::GD;
use GD::Image;

$file="test.jpg";

$wmf = Image::Base::GD->new(-file => $file);
$wmf->set(-file_format => 'wmf');
$wmf->save('test.wmf');