Posted on 2006-07-14 15:34
理想 阅读(410)
评论(0) 编辑 收藏 所属分类:
perl
1 use Image::Magick;
2 my ($width, $height, $size, $format);
3 my $image = Image::Magick->new;
4 ($width, $height, $size, $format) = $image->Ping('logo.png');
5 ($width, $height, $size, $format) = $image->Ping(file=>\*IMAGE);
6 ($width, $height, $size, $format) = $image->Ping(blob=>$blob);