[转]关于Perl文件操作——批量修改文…

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

修改文件名

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

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"){
     #