Posted on 2006-07-14 15:34
理想 閱讀(415)
評論(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);