小编sam*_*_vh的帖子

我正在尝试对文件列表重新编号，这些文件在文件名的给定点有一个由四位数字组成的索引。这些文件一致从0001开始输出，但需要从1001开始。

• ./file_name.0001.jpg应该./file_name.1001.jpg
• ./file_name.0734.jpg应该./file_name.1734.jpg
• ETC。

我遇到过rename，但我对 Perl 不熟悉。即兴发挥例子，我相信这会起作用：

rename -n 's/\d{4}/our $i //= 1001; ++$i/e' -- *.jpg

不幸的是，到增量时，它似乎已经忘记了 $i：

Global symbol "$i" requires explicit package name (did you forget to declare "my $i"?) at (user-supplied code).

对于重命名为已经存在的名称的文件来说，也不安全，但我不知道它会去哪里。