如何將包含浮點數的文件重命名爲連續編號

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？

任何幫助都會非常棒！

問候，于爾根

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