perl 迭代目录下所有文件更名

最新推荐文章于 2024-08-01 15:40:57 发布

原创最新推荐文章于 2024-08-01 15:40:57 发布 · 665 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#perl

Linux 同时被 2 个专栏收录

37 篇文章

订阅专栏

脚本

18 篇文章

订阅专栏

本教程展示了如何使用Perl脚本批量重命名指定目录下所有文件，并提供了详细的步骤和代码示例。

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

环境： perl v5.14.2

3.18.0-kali3-amd64

#/usr/perl

# author :ez
# date : 2015/8/11
# describe : rename all the file in a specified dir

use strict;
use warnings;

my @array = `ls`;
my $i = 0;

foreach my $x(@array) {
	my $rename = "";
	chomp $x;
	$rename = (++ $i) . ".png"; # new name

	`mv "$x" "$rename"`;
#$x."---";
}