0

私はここでかなり立ち往生しています。助けてください。

次のような名前のファイルが多数あります。

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

例:plot_.0012.pngまたはplot_1.12.png.

plot_{5 digits}.png名前を、 like plot_00012.png、に変更する方法はありplot_11200.pngますか?

どんな助けでも本当に素晴らしいでしょう!

こんにちは、ユルゲン

4

1 に答える 1

0

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
于 2011-01-07T09:38:31.717 に答える