奇怪,.bmp图片如何用perl生成微缩图?

freeand

UID: 38872
帖子: 66
积分: 151
在线时间: 6 小时

1^# freeand 发表于 2005-02-16 16:32

奇怪,.bmp图片如何用perl生成微缩图?

奇怪,.bmp图片如何用perl生成微缩图?
除了Image::Magick,还有什么办法吗?好像GD不行...

freeand

UID: 38872
帖子: 66
积分: 151
在线时间: 6 小时

2^# freeand 发表于 2005-02-16 16:38

好像没这类的模块
好像没这类的模块

hoowa

UID: 24390
帖子: 143
积分: 328
在线时间: 1 天 4 小时

3^# hoowa 发表于 2005-02-17 08:52

不想用imagemag...
不想用imagemagick吗？

freeand

UID: 38872
帖子: 66
积分: 151
在线时间: 6 小时

4^# freeand 发表于 2005-02-17 14:07

只是好奇,相信perl万能...
[CCB]14[/CCB]

rob

UID: 16
帖子: 13
积分: 29
在线时间: 10 分钟

5^# rob 发表于 2005-02-17 15:01

还可以选择Imager啊
[url]http://search.cpan.org/~tonyc/Imager-0.44/[/url]
[url]http://imager.perl.org/[/url]

ActivePerl PPM包
[url]http://www.bribes.org/perl/ppmdir.html[/url]

freeand

UID: 38872
帖子: 66
积分: 151
在线时间: 6 小时

6^# freeand 发表于 2005-02-17 15:23

谢谢,发完帖后我也找到了...
只是它的例子里有误导的现象啊:

for $format ( qw( png gif jpg tiff ppm ) ) {
# Check if given format is supported
if ($Imager::formats{$format}) {
$file.="_low.$format";
print "Storing image as: $file\n";
# documented in Imager::Files
$thumb->write(file=>$file) or
die $thumb->errstr;
last SAVE;
}
}

any png gif jpg tiff ppm?