Perl实现删除Windows下的图片缓存缩略图Thumbs.db
接手以前别人做的项目,发现svn里的ignore里并没有对*.db处理,导致图片的缓存缩略文件都被提交了,而我只要打开图片文件夹,就意味着thumbs.db发生了改变。要做的事情有两个:一、更改svn
接手以前别人做的项目,发现svn里的ignore里并没有对*.db处理,导致图片的缓存缩略文件都被提交了,而我只要打开图片文件夹,就意味着thumbs.db发生了改变。
要做的事情有两个:
一、更改svn的设置,以后不再提交thumbs.db文件
二、批量删除指定目录下的thumbs.db文件
所以用perl写了一个,代码是在之前的 perl遍历目录 做了一些修改,主要有两点自己注意了:
一、文件路径,windows下默认为“\ ”而linux下则是”/”, 所以统一改为”/”
二、比较两个字符串相等需要使用eq 而不是 == (==返回数值相等,而eq返回的是字符串相等)
三、unlink删除文件,需要指定文件的完整路径
四、perl中的else if 写法为elsif 没有那个“e”
五、perl正则匹配方式为 =~ 或 !~
完整的代码如下,需要更改规则可以修改代码中的这一段:

控制台上输出的结果:

相关文章:
-
-
-
Perl中的子程序学习笔记
一、定义 函数可分为系统函数和用户函数。子程序即执行一个特殊任务的一段分离的代码,它可以使减少重复代码且使程序易读。perl中,子程序可以出现在程序的任何地方。...
[阅读全文]
-
-
Perl中的控制结构学习笔记
一、语句的种类计算机是一种工具,优势在于执行重复任务.循环执行,循环语句。需要作出大量的判断,按条件执行,条件语句。顺序语句。表达式真假值总结表达式不一定是逻辑...
[阅读全文]
-
版权声明:本文内容由互联网用户贡献,该文观点仅代表作者本人。本站仅提供信息存储服务,不拥有所有权,不承担相关法律责任。
如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2386932994@qq.com 举报,一经查实将立刻删除。
发表评论