关于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信息中的旋转方向是有关系的。举个栗子，假如你用手机拍摄了一张照片，但是，你是把手机横过来拍摄的，那么这张图片将会以“左旋（也可能是右旋，取决于你摄像头在哪边）”属性解析，那么导致的结果就是，你的图片解析完之后，你的图片宽和高将会是相反的！宽会变为高的值，高会变为宽的值，这时候怎么处理呢。请听下回分解！~