如何将包含浮点数的文件重命名为连续数

Question

我被困在这里了。请帮忙。

我有很多文件，名字如下：

plot_[0-9]*\.?[0-9]+\.png

即G。 plot_.0012.png或plot_1.12.png。

有没有办法将其重命名为plot_{5 digits}.png，例如plot_00012.png和plot_11200.png？

任何帮助都会非常棒！

问候，Jürgen

Answer 1

以下是在Perl中执行此操作的方法：

#!/usr/bin/perl
use strict;
use warnings;
use 5.10.1;
use Data::Dumper;

while(<DATA>) {
    chomp;
    print "$_ --> ";
    s/^(plot_)(\d*)\.?(\d+)(\.png)$/$1 . '0'x(6-length("$2+$3")) . $2 . $3 . $4/e;
    say;
}

__DATA__
plot_.0012.png
plot_1.12.png
plot_12.023.png
plot_1.png

<强>输出：

plot_.0012.png --> plot_00012.png
plot_1.12.png --> plot_00112.png
plot_12.023.png --> plot_12023.png
plot_1.png --> plot_00001.png