摘要: 有时候客户给的文件文件名里面有很多空格,在网页解析的时候会把这些空格变成只保留一个,所以得去掉这些空格。通过重命名是一种方法。这里我是对文件名进行批量过滤。 1 #!/usr/bin/perl -w 2 use strict; 3 use warnings; 4 use File::Find (); 5 use File::Basename ; 6 7 #文件名过滤工具(批量改文件名,去掉文件名中的全部/或多余空格) 8 #暂不支持目录重命名 9 use vars qw/*name *dir *prune/ ;10 *name = *File::Find::name ;11 *dir = *. 阅读全文
posted @ 2013-01-19 08:57 ifeixiang 阅读(608) 评论(0) 推荐(0) 编辑