ファイル中の記述文字の一括置き換えについて

質問

perlにてsed相当の処理を行いたいのですが
ご存知の方、教えてください。

[処理内容]
・外部入力より変数定義・・・$A、$B
・ファイル「AA.txt」中記述の「$A」を「$B」に一括変更する。

単純にsystem関数でsedを使用すれば済むようでもありますが
system("sed -e 's/'$A'/'$B'/g' $AA.txt > AA.tmp");
と記述すると失敗してしまいます(構文エラーではありません)。
単純に記述ミスでしょうか？

他に上記のよな処理を実現できるコマンド等ございましたら、
ぜひご教授ください。

サーバー・・・HP-UX
開発言語・・・Perl5
開発端末・・・windows2000(Tera Term 使用)

以上、よろしくお願いいたします。

回答No.4

BLUEPIXY · ベストアンサー

>代わるような処理の記述はないでしょうか？？
Perl中なら、単にs/\$A/\$B/gでいいし、
それがお好みならsystemでPerlを呼び出すこともできると思います。
その場合は、PerlのパスとAA.txtのパスが問題かも・
フルパスにしないといけないかもしれません

お礼

> その場合は、PerlのパスとAA.txtのパスが問題かも・
フルパスにしないといけないかもしれません
その通りでございました。。。
定義ファイルのパスが問題のようで・・・
失敗なく処理が完了いたしました。
ありがとうございます。

kochoryさんもご協力ありがとうございました。

回答No.3

BLUEPIXY

>コマンドライン上からの実行ということでしょうか？
そうです。
"は'の方がいいかも

補足

ごめんなさい、私の説明がいたらなかったようで・・・

perlプログラム中の
system("sed -e s/$A/$B/g $AA_txt > $AA_tmp");
に代わるような処理の記述はないでしょうか？？

以上、よろしくお願いいたします。

回答No.2

BLUEPIXY

>perl -i.bak -pe "s/\$A/\$B/g;" AA.txt

お礼

ご回答ありがとうございます。

すみません上記はコマンドライン上からの実行ということでしょうか？

よろしくお願いいたします。

回答No.1

kochory

質問文中のコマンドの中の、$AA.txtは、AA.txtの間違いですよね。
それが原因では？

それを直せば手元のＰＣではちゃんと動作しましたし、
単に
system("sed -e s/$A/$B/g AA.txt > AA.tmp");
でもＯＫです。

お礼

ご回答ありがとうございます。

すみません、少しごっちゃになってしまいました。
正確にはファイル名も変数であたえております。
正しくは、
$AA_txt = "AA.txt";
$AA_tmp = "AA.tmp";
system("sed -e s/$A/$B/g $AA_txt > $AA_tmp");
でした。。。
ちなみに上記「system」の前に「$flag = 」をつけて
print "$flag\n";
としてみましたが、私の方では結果０以外(512)で失敗でした。