Git Bashの使用をおすすめします。なぜなら、PowerShellよりもBashのユーザーのほうが多いのでより多くの知見が得られるためです。Git BashのなかにはPerlも入っています。Perlがあれば一通りのことはできます。
例えばD:\test
のなかにA
とB
というサブディレクトリがあるとしましょう。Git BashではD:\test
は/d/test
という表記になるのでcd /d/test/
と入力します。
さて、A
の中に、aaa.txt
, aaa.bin
, bbb.txt
, ccc.txt
, ccc.out
というファイルを用意してB
に.txt
のファイルだけ移動させることを考えます。B
にはbbb.txt
, bbb_1.txt
, bbb_2.txt
, ccc.txt
を用意しておきます。
次のPerlスクリプトファイルmove.pl
を用意します。
use warnings;
use File::Copy 'move';
$srcdir = "./A"; # 移動元ディレクトリ
$dstdir = "./B"; # 移動先ディレクトリ
$ext = "txt"; # 拡張子
opendir(FROM, $srcdir);
foreach(readdir(FROM)) {
next if $_ !~ /^(.*)\.${ext}$/;
$original = $1; # 元々のファイル名(拡張子無し)
if ( !( -f "${dstdir}/${original}.${ext}" ) ) {
$filename = "${original}.${ext}";
} else {
$i = 1;
while ( -f "${dstdir}/${original}_${i}.${ext}" ) {
$i++;
}
$filename = "${original}_${i}.${ext}";
}
print "${srcdir}/${original}.${ext}を${dstdir}/${filename}に移動\n";
move("${srcdir}/${original}.${ext}", "${dstdir}/${filename}");
}
closedir(FROM);
このスクリプトをGit Bashの/d/test/
内で実行します。実行コマンドは次のとおりです。
perl move.pl
実行すると次のような表示が出ます。
./A/aaa.txtを./B/aaa.txtに移動
./A/bbb.txtを./B/bbb_3.txtに移動
./A/ccc.txtを./B/ccc_1.txtに移動
実際、A
の中がaaa.bin
, ccc.out
だけになり、B
のなかにaaa.txt
, bbb.txt
, bbb_1.txt
, bbb_2.txt
, bbb_3.txt
, ccc.txt
, ccc_1.txt
が入っている状態となります。
hoge.txt
が元先両方にあるとき、先ではどうしたいですか?hoge.txt.0000
とかそれともhoge0000.txt
とか? 連番付けようと思ったら、先にhoge.txt.0000
が既にあるときどうしたいですか? と、考えると元ディレクトリだけ列挙してもあまり役に立たなそうです。