私はここでかなり立ち往生しています。助けてください。
次のような名前のファイルが多数あります。
plot_[0-9]*\.?[0-9]+\.png
例:plot_.0012.png
またはplot_1.12.png
.
plot_{5 digits}.png
名前を、 like plot_00012.png
、に変更する方法はありplot_11200.png
ますか?
どんな助けでも本当に素晴らしいでしょう!
こんにちは、ユルゲン
私はここでかなり立ち往生しています。助けてください。
次のような名前のファイルが多数あります。
plot_[0-9]*\.?[0-9]+\.png
例:plot_.0012.png
またはplot_1.12.png
.
plot_{5 digits}.png
名前を、 like plot_00012.png
、に変更する方法はありplot_11200.png
ますか?
どんな助けでも本当に素晴らしいでしょう!
こんにちは、ユルゲン
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