Perl实现删除Windows下的图片缓存缩略图Thumbs.db
2014-12-20 11:49
423 查看
接手以前别人做的项目,发现SVN里的ignore里并没有对*.db处理,导致图片的缓存缩略文件都被提交了,而我只要打开图片文件夹,就意味着Thumbs.db发生了改变。
要做的事情有两个:
一、更改svn的设置,以后不再提交Thumbs.db文件
二、批量删除指定目录下的Thumbs.db文件
所以用perl写了一个,代码是在之前的 perl遍历目录 做了一些修改,主要有两点自己注意了:
一、文件路径,Windows下默认为“\ ”而linux下则是”/”, 所以统一改为”/”
二、比较两个字符串相等需要使用eq 而不是 == (==返回数值相等,而eq返回的是字符串相等)
三、unlink删除文件,需要指定文件的完整路径
四、perl中的else if 写法为elsif 没有那个“e”
五、perl正则匹配方式为 =~ 或 !~
完整的代码如下,需要更改规则可以修改代码中的这一段:
复制代码 代码如下:
#!/usr/bin/perl
use strict;
use warnings;
my $path = "C:/FlexApp/xx";
my $filecount = 0;
sub parse_env {
my $path = $_[0]; #或者使用 my($path) = @_; @_类似javascript中的arguments
my $subpath;
my $handle;
if (-d $path) {#当前路径是否为一个目录
if (opendir($handle, $path)) {
while ($subpath = readdir($handle)) {
if (!($subpath =~ m/^\.$/) and !($subpath =~ m/^(\.\.)$/)) {
my $p = $path."/$subpath";
if (-d $p) {
parse_env($p);
} elsif ($subpath eq "Thumbs.db") {
++$filecount;
print "The file path:".$p."------------The file name:$subpath\n";
unlink($p) or warn "failed on $subpath:$!";
}
}
}
closedir($handle);
}
}
return $filecount;
}
my $count = parse_env $path;
my $str = "删除文件的总数:".$count;
print $str;
控制台上输出的结果:
相关文章推荐
- perl删除Windows下的图片缓存缩略图(Thumbs.db)
- asp.net中使用Uploadify插件实现多张图片上传,上传后可显示缩略图、删除图片
- Thumbs.dbWindows Explorer的缩略图的文件
- Thumbs.dbWindows Explorer的缩略图的文件
- c#实现简单的windows服务实例--清除图片缓存定时器服务
- Windows 界面:具有“删除元素”和“按列进行字符比较排序”的 CListCtrol 继承类 CListCtrolEx 的实现
- 以缩略图的形式在Windows资源浏览器中显示自定义格式图片
- 在ASP.NET中实现上传图片,并按比例生成缩略图
- 讨论一个用j2me实现大图片的缩略图的算法
- 一个实现图片上传/产生缩略图/在上传图片上写字功能的完整页面代码
- 缩略图(Thumbs.db)文件操作
- 图片实现gridview编辑删除事件
- 缩略图浏览器 ThumbsdbExplorer
- C#实现Windows 服务的制作安装和删除
- JspSmart 实现JSP上传图片并生成缩略图
- windows服务操作之删除服务 批处理实现
- 图片缩放_ASP.NET实现图片缩略图
- 删除Thumbs.db
- 在ASP.NET中实现上传图片,并按比例生成缩略图
- 获取图片路径--生成缩略图的完整实现