• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

关于Perl文件操作——批量修改文件名

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

修改文件名

一个修改文件名的错误示例:

1 #!/usr/bin/perl
2 foreach (@ARGV){
3 s/(\.bak)?$//; #去掉文件名的.bak后缀
4 }

上面代码是我初学perl时写下的,然而这并不能修改文件名,事实上,所修改的仅仅是列表@ARGV中的变量,一旦退出程序,修改后的变量就会销毁。

 

可以使用rename来实现。

 1 #!/usr/bin/perl
2 foreach my $file (glob "*.bak"){#查找当前目录以.bak为后缀的文件
3 my $newFile = $file;
6 $newFile =~ s/.bak$//;#删除后缀.bak
7 if(-e $newFile){#若修改后导致文件重名,则输出警告,不作处理
8 warn "Can't rename $file to $newFile. The $newFile exists!\n";
9 }else{
10 rename $file, $newFile#重命名文件
11 or warn "Rename $file to $newFile failed: $!\n"; #如果重命名失败,则输出警告
12 }
13 }

另一个示例

将目录下的所有命名为2011_11_11.xxx.pl的文件前面的2011_11_11前缀去掉。

#!/usr/bin/perl -w
use strict;

my $DIR_PATH = "D:/temp/";
opendir TEMP, ${DIR_PATH} || die "Can not open this directory";
my @filelist = readdir TEMP; #读取目录下的所有文件名
my ($bn,$sf);

foreach (@filelist) {
print $_;
if ( $_ ne "." && $_ ne ".." ) { #去掉当前目录和上级目录
if ( /2011_11_11/ ) { #搜索还有该字符串的文件名
($bn, $sf) = split /\./, $_; #取出以.分隔的前缀和后缀
rename( $DIR_PATH . $_, $DIR_PATH . $sf . "\.pl");
}
}
print "\n";
}


glob操作符

Perl通过glob操作符提供相当于shell中的指定多个文件的"通配符"语法的功能,返回值为与指定的glob文件模式相匹配的文件名列表。

下面是一些glob应用示例:

@html_file=glob '/home/site/*.html';
@three_letter_extensions=glob '*.???';
@lcfirst=glob '[a-z]*';
@files=glob 'file[0-9][0-9][0-9]';
@files=glob '???*';

glob操作符有两种不同的形式:

@files=glob '*.pl'; #得到当前目录中的所有文件,不包含以句点开头的文件

@files=<*.pl> #这种形式一般在老程序中出现(注意<> 里面接通配符*时是glob操作符,接一个文件句柄时是钻石操作符)

Perl在遇到尖括号<>时,它会检查尖括号中的内容是否为文件句柄。

@content=<FILE>; #@content值为文件句柄FILE指向的文件内容

因此,当在变量上执行文件glob时,必须在文件名两端添加大括号。

@files=<${filespec}>; #如果没有大括号,将会把$filespec当成文件句柄读取

或者简单地使用glob语法:

@files=glob $filespec;

 

尖括号<>

1) 如果尖括号中间是文件句柄,尖括号运算符允许你读取文件句柄,比如<STDIN>。

2) 如果尖括号中间是搜索模式,尖括号运算符能返回与该模式匹配的文件列表,这称为一个glob,比如< *.bat>。

3)一组尖括号运算符如果中间没有任何东西,那么它可以读取命令行上所有文件的内容;如果没有给出文件名,则可以读取标准输出。

while(<>){ print $_; }

如果将上面的程序保存为Example.pl,那么用下面这个命令行运行该程序:

#perl –w Example.pl file1 file2 file3

就可使运算符<>顺序读取file1,file2,file3中的内容,每次读1行。如果没有设定文件,则尖括号运算符从文件句柄STDIN中读取数据。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
perl的一些小函数——split、join、sort发布时间:2022-07-22
下一篇:
perl多线程使用发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap