使用 perl 重命名文件名的一部分

Question

我想使用 perl 重命名文件的一部分。我知道如何重命名有空格的文件名，我这样做是因为文件名有“我的 123.log”。此代码会将其重命名为 new_123.log。

foreach my $i (<"my *.log">) {

my $y = $i; # save the original file name

$i =~ s/my /new_/; # replace the spaces with a _ character

rename ( $y, $i ); # rename the original file with the new name

现在我想重命名名为 my.123.log 的文件，我很困惑如何处理这个 '.'在文件名中。如果我想重命名一个以我的名字开头的文件名（更不用说我的 123.log），那么这个命令可以吗？我想使用它，因为我只知道文件名的开头

move '../my *.log', '../new.log' or die "cant change the name";

Answer 1

我认为您希望在将其交给move 之前找到该模式。上面的move 语句将覆盖除最后一个之外的所有输入文件。因此，您可以使用括号“保存”匹配的内容（一次或多次）：

/^my\s([a-z0-9])\.log/;

#try this first please
print "move '../my $1.log', '../new$1.log' or die "cant _overwrite_ the file";

#and if that looks ok then try uncommenting this:
#move '../my $1.log', '../new$1.log' or die "cant _overwrite_ the file";

我没有时间测试我的正则表达式，字符类匹配可能需要修改为一次或多次，或者如果您认为文件名中包含字母数字以外的字符，则需要对其进行扩展。