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

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

 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 }

#!/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";
}

@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 '???*';