Windowsでファイル内の文字列一括置換

質問

perl初心者です。
Windows上で特定のフォルダ内にあるファイルに書かれている
文字列をperlで一括置換したいのですが、方法がわかりません。
アドバイスをお願いいたします。

やりたいこと。
・Windows上で実行。
・特定のフォルダ内にある複数ファイルが対象。
・置換したい条件は複数で、1ファイル内で複数ヒットするる可能性あり。
・言語はperl

例）
条件1
・置換前：tokyoto
・置換後：kanagawaken

条件2
・置換前：saitamaken
・置換後：tibaken

・ファイル
　c:\test1\a\a1.xml
　c:\test1\a\a2.xml
　c:\test1\b\b1.xml

・a1.xmlの内容
　tokyotokawasakishi
tokyotoyokohamashi
saitamakenitikawashi
・a2.xmlの内容
　kanagawakensagamiharashi
saitamakentibashi
・b1.xmlの内容
tokyotohiratukashi

↓置換後
・a1.xmlの内容
　kanagawakenkawasakishi
kanagawakenyokohamashi　
tibakenitikawashi
・a2.xmlの内容
　kanagawakensagamiharashi
tibakentibashi
・b1.xmlの内容
kanagawakenhiratukashi

回答No.2

kumoz · ベストアンサー

コマンドラインの最初の引数にスクリプトファイルを指定して、残りに処理対象のファイルを指定すれば、前回の回答と同じ処理となります。置き換えは、スクリプトファイルに追加していきます。

perl -pi replace.pl a1.xml a2.xml b1.xml

replace.pl
s/tokyoto/kanagawaken/g;
s/saitamaken/tibaken/g;

お礼

複数フォルダ配下からの取得方法がわからなかったのですが、いただいた情報を参考にさせていただきました。
ありがとうございました。

補足

ありがとうございます。
DOSコマンドでたたいた場合、バックアップファイルをとらないとエラーになってしまうようですね。
特定のフォルダを指定する方法がわからないので、ただいま調査中です。

回答No.3

Wap58

特定のフォルダー内の特定の拡張子だけなら
１の方のでいいんじゃないでしょうか
ファイル名を抜き出したいならこれになります

use strict;
use Cwd;
my @an = glob "*";
@an = grep/xml/,@an;
for(@an){$_= cwd."/$_\n";}
chdir '/Users/ユーザー名/Desktop';#階層移動
open GG,">>hoge.txt" or print"$!\n";
print GG @an;
close GG;

__END__

Macの階層セパレーターは/になるけど
Winだと￥￥になるのでしょうか？

フォルダーを自動でとことん根こそぎなら
いろんな関数が必要になります

回答No.1

kumoz

目的のフォルダに移動して、次のコマンドラインを実行すれば置き換えられると思います。なお、ファイルを直接置き換えてしまうので、元のファイルを残したい場合は、-pi の直後に元のファイル名に付加する文字列 (.bk, .org など) を指定してください。

perl -pi -e "s/tokyouto/kanagawaken/g;s/saitamaken/tibaken/g;" a1.xml a2.xml b1.xml

補足

ありがとうございます。
実際、置換する条件はたくさんあり、ファイルもたくさんあるため、
ファイルに記載して実行したいのですが、
その場合、どのように記載すればよいのでしょうか。