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