如何使用 Perl 轻松批量重命名文件？

Question

我有很多文件正在尝试重命名，我尝试创建一个正则表达式来匹配它们，但即使如此，我仍然卡在文件的命名上，如下所示：

文件名01

文件名100

文件名02

文件名03

等等，我想在任何小于 100 的文件后面添加一个“0”（零），如下所示：

文件名001

文件名100

文件名002

文件名003

我最接近匹配它们的是使用这个 find -type d |排序-r | grep ' [1-9][0-9]$' 但是我不知道如何替换它们。预先感谢您可以为我提供的任何帮助。我使用的是 CentOS，如果这有帮助的话，所有这些都是通过 SSH 完成的。

Answer 1

perl -e 'foreach $f (glob("File\\ Name*")) { $nf = $f; $nf =~ s/(\d+)$/sprintf("%03d",$1)/e; print `mv \"$f\" \"$nf\"`;}'

也许有点矫枉过正，但它确实满足了要求。

Answer 2

find . -type d -print0 | xargs -0 rename 's/(\d+)/sprintf "%03d", $1/e' 

或类似的东西，前提是

1. 您有 GNU find 和 GNU xargs （用于 -print0 和 -0）
2. 您有 perl 附带的“重命名”实用程序
3. 只有一组文件名中的数字。如果有多个，那么您需要使用正则表达式执行一些操作，使其仅匹配您想要重新格式化的数字。

Answer 3

这是一次性的事情吗？如果是这样，我将建议一些可能被许多程序员逃避的东西：

通过管道传输命令的输出 (find -type d | sort -r | grep ' [1-9][ 0-9]$'）到一个文件，并使用编辑器和一些全局搜索/替换魔法来创建一个执行重命名的脚本。

然后把剧本扔掉。

没有什么大惊小怪的，也很少有可能你会因为尝试一种聪明的（但调试不充分的）单行代码而导致文件中的杂草丛生，最终搬起石头砸自己的脚。

Answer 4

按以下顺序运行两个命令：

$ rename 's/File Name (\d)$/File Name 0$1/' *
$ rename 's/File Name (\d\d)$/File Name 0$1/' *

第一个命令重命名小于 10 的所有内容并在前面添加零。第二个重命名所有小于 100 的内容并在前面添加一个零。所有文件名的结果都应该是三位数。

Answer 5

在我的 debian 中，它可以很好地进行重命名，并使用 300 个文件进行了测试。

 perl -e 'map `touch door$_.txt`, 1..300;'
 rename 's/(\d+)\.txt/sprintf("%03d.txt", $1)/e' *.txt

Answer 6

我认为 mmv 是你的朋友。

Answer 7

你可以使用 perl 或 ruby​​ 做一些事情。

将所有这些文件放在同一目录中

dirlisting = DIR.entries('.')

dirListing.each do |file| 
 num = file.match(/\d+$/).to_i
 if num < 100
   find the position where start the number, with index and inject the 0 there.
 end
end

Answer 8

use strict;
use File::Copy;

my @files = glob 'File*Name*';

foreach my $filename (@files) {
    if ($filename =~ m`^.*File.*Name.*?(\d+)`) {
        my $number = $1;
        next if ($number > 99);
        rename $filename, sprintf("FileName%03d",$number);
    }
}

Answer 9

如果您的遥控器有 bash shell，

for i in File*; 
do 
    case "${i##* }" in  [0-9][0-9] ) 
      echo  mv "$i" "${i% *} $(printf "%03d" ${i##* })" ;; 
    esac; 
done

请删除“echo”以进行实际重命名