用perl找到图片信息
来源:互联网 发布:说明书排版设计软件 编辑:程序博客网 时间:2024/06/06 06:34
今天群里和彦问怎么把图片的按照图片生成日期重命名,sam给出Image::EXIF模块,回来试了试,觉得还不错,记录一下。
Exif(Exchangeable image file format):可交换图像文件格式常被简称为Exif,是专门为数码相机的照片设定的,可以记录数码照片的属性信息和拍摄数据。可以附加于JPEG、TIFF、RIFF等文件之中,为其增加有关数码相机拍摄信息的内容和索引图或图像处理软件的版本信息。Exif信息是可以被任意编辑的,因此只有参考的功能。
Image::EXIF(cpan:http://search.cpan.org/~ccpro/Image-EXIF-0.99.4/EXIF.pm)
作者在里面写到:Actually it's just a wrapper. Weak PHP's support of EXIF made me write it. If you wanna improve it - go ahead.I did this module only because nobody did it before.
查看图片的信息:
#!/usr/bin/perluse strict;use warnings;use Image::EXIF;use Data::Dumper;my $file_name = shift;my $exif = new Image::EXIF;$exif->file_name($file_name);print $exif->error ? $exif->errstr : Dumper($all_info);
随便给了张照片,结果如下:
可以看到在‘other’里面有Image Generated的日期信息,这样就简单了,可以把时间找出来rename了。
0 0
- 用perl找到图片信息
- 用Perl显示BIOS信息
- 用Perl显示注册表信息
- 用perl 统计日志信息
- 用Perl语言读取网络设备SNMP信息
- 网上找到的用xml传输图片
- 用图片隐藏信息
- Perl抓取网页信息
- Perl 采集磁盘信息
- perl lwp 响应信息
- perl内置警告信息
- perl 获取虚拟机信息
- 无法找到调试信息
- 用perl 提取时间信息并处理数据--实例。
- 安装PHP apache中的perl无法找到
- perl 读取图片
- 用递归解决连续更换信息找到最新信息的问题
- Perl 新浪股票信息收集
- C语言面向对象编程(定义、函数指针、指针函数)
- 由Maximum Gap,谈桶排序,基数排序和计数排序
- Unity3D学习基本知识
- Reverse Integer(leetcode)
- Python抓取Excel表数据至MySQL表
- 用perl找到图片信息
- ios hpple解析html demo
- C#读写txt文件
- 第一次只出现一次的字符
- 基于wsdl2java访问外来service服务
- NSInteger转Byte字节
- 手斧Linux – 从LFS到Funtoo (2)
- hdu 1159 Common Subsequence (dp求LCS)
- Spring 环境搭建与IoC和AOP