关于perl读取服务器/本地路径下的图片宽高问题
最近在写perl程序的时候发现需要读取图片的宽和高，这种事情一般都是由前端来做的，但是由于业务需要，这件事情就落在了后端的身上。文章中如果有错误或者您有更好的看法欢迎补充和指出错误，虚心求教，并万分感谢！
其实，读取图片的模块有很多，例如：Image::Info,Image::EXIF,Image::EXIFTool,Image::Size 等。今天来说一下其中一个模块：‘Image::Size’，这个模块有三种使用方法，手册上注明了不同的使用方法返回的数据格式也不同，但是最终得到的结果是相同的——那就是得到了宽和高。具体 手册请移步：Image::Size模块手册。下面是我开发时用的一段demo，仅供参考。
usestrict;
usewarnings;
useData::Dumper;
useImage::Size'imgsize';
useImage::Size'html_imgsize';
useImage::Size'attr_imgsize';
##模块概述：读取图像尺寸。
##输入形式均以流的形式传入。
##该模块可以辨识以下格式图片
# GIF
# JPG
# XBM
# XPM
# PPM系列（PPM / PGM / PBM）
# XV缩略图
# PNG
# MNG
# TIF
# BMP
# PSD（Adobe PhotoShop）
# SWF（ShockWave / Flash）
# CWS（FlashMX，压缩SWF，Flash 6）
# PCD（柯达PhotoCD，见下面的注释）
# EMF（Windows增强型图元文件格式）
# WEBP
# ICO（微软图标格式）
# CUR（微软鼠标光标格式）
#如果Image :: Magick模块存在，则Image::Size也支持他支持的文件类型
##文件路径
my$file_name ="a06526e8-5c69-11e7-a6d1-000c29ccfba6_xxxImg.jpg";
##子程序：imgsize
##返回：按顺序返回图片的宽度和高度。（一共返回三个元素，前两个为宽、高，最后一个参数为图片类型）如果调用失败，则列表中第一个元素将会为undef，第三个元素将返回一个包含描述的错误信息。
my($width,$height) =imgsize($file_name);
print"$width--width\n";
print"$height---hight\n";
#print "$format--type\n";
##子程序：html_imgsize
##返回：返回一个字符串，字符串内容为：'width="X" height="Y",如果调用失败则返回undef。
my$string=html_imgsize($file_name);
printDumper($string);
##子程序：attr_imgsize
##返回：含有四个元素的列表，列表内容大致为：
# [
#'-width',
# 580,
# '-height',
# 378
# ];
##如果调用失败则会返回undef
my@hashInfo =attr_imgsize($file_name);
printDumper(\@hashInfo)."\n";
值得一提的是，此模块获得的图片宽高是和图片的EXIF信息中的旋转方向是有关系的。举个栗子，假如你用手机拍摄了一张照片，但是，你是把手机横过来拍摄的，那么这张图片将会以“左旋（也可能是右旋，取决于你摄像头在哪边）”属性解析，那么导致的结果就是，你的图片解析完之后，你的图片宽和高将会是相反的！宽会变为高的值，高会变为宽的值，这时候怎么处理呢。请听下回分解！~
