获取图片大小等信息

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 );