重命名文件名称 rename

最新推荐文章于 2024-07-30 10:31:18 发布

bruce_wang_janet

最新推荐文章于 2024-07-30 10:31:18 发布

阅读量688

点赞数

分类专栏： Perl 沙漠之舟

本文链接：https://blog.youkuaiyun.com/bruce_wang_janet/article/details/54980730

版权

Perl 沙漠之舟专栏收录该内容

59 篇文章

订阅专栏

本文介绍了一个使用Perl脚本实现的文件批量重命名工具。该工具可根据不同条件将指定目录下的文件扩展名从.avi转换为.mov，或将.bag文件扩展名改为.avi。通过运行批处理文件启动脚本，并在脚本所在目录执行操作。

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

1. perl脚步

print @ARGV;
print "\n\n";
if (@ARGV){

	@filenames = <*.avi>;
		print @filenames;
	foreach  $filename (@filenames)
	{
		$newname = $filename;
		$newname =~ s#avi#mov#;
		print "rename  $filename $newname \n";
		`rename  $filename $newname`;
	}

}
else{

	@filenames = <*.bag>;
	foreach  $filename (@filenames)
	{
		$newname = $filename;
		$newname =~ s#mov#avi#;
		`rename  $filename $newname`;
	}

}

2. 运行bat脚本

%~d0
cd %~p0

perl rename.pl

pause