Perl+Windowsでファイルを再帰的にリネームする方法Perl+Windowsでファイルを再帰的にリネームする方法を紹介します。 １．はじめに 仕事でWindowsuenファイルを再帰的にリネームする必要が生じました。 とりあえずPerlを使ってスクリプトを組もうと思いますが再帰的にサーチしてリネームする方法が分かりません。 ということで、Perl+Windowsでファイルを再帰的にリネームする方法を紹介します。 ここではC:tmp配下のファイルがExcelの場合、末尾に「.bak」を付与するサンプルで紹介します。 ２．ファイルを再帰的にリネームする ファイルを再帰的にリネームするには次のようなコードを実行します。 #!/usr/bin/perl use strict; use File::Find; my $dir = 'C:¥tmp'; find( ¥&rename, $dir ); sub rename { my $file = $_;
