批量修改目录及其子目录的文件名（perl脚本）

最新推荐文章于 2025-04-07 13:48:24 发布

转载最新推荐文章于 2025-04-07 13:48:24 发布 · 621 阅读

4 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/levon/blog/90154

本文介绍如何使用Perl脚本在当前目录及其子目录中批量修改文件名，包括正则表达式匹配文件扩展名并进行重命名操作，同时处理可能出现的重名问题和目录递归情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

为什么80%的码农都做不了架构师？>>>

功能：把当前目录及其子目录里的文件名批量修改

#!/usr/perl
#批量修改文件名

&find_fileindir(".");#在当前目录执行
sub find_fileindir(){
  local($dir) = @_;
  opendir(DIR,"$dir"|| die "can't open this $dir");
  local @files =readdir(DIR);
  closedir(DIR);
  for $file (@files){
    next if($file=~m/\.$/ || $file =~m/\.\.$/);#剔除.和..
    if ($file =~/\.(cpp|cc|c)$/i){#文件扩展名为cpp或者cc或者c的文件
        print "$dir\/$file \n";
        my $newFile = $file;
	$newFile =~ s/cpp/h/; #将“cpp”扩展名改为“h”
	if(-e $newFile){ #如果修改后会导致文件重名，则输出警告，不作处理
	warn "Can't rename $file to $newFile. The $newFile exists!\n";
	}else{
	rename "$dir/$file", "$dir/$newFile" #重命名文件
	or
	warn "Rename $file to $newFile failed: $!\n"; #如果重命名失败，则输出警告
    }
    elsif(-d "$dir/$file"){
        find_fileindir("$dir/$file" );
    }
  }
}

转载于:https://my.oschina.net/levon/blog/90154