[[
テキストファイルを置換する
]]
Fool For the City
現在位置:
なみかわみやこの技術メモwikiです。
»
perl
»
テキストファイルを置換する
文書の表示
以前のリビジョン
最近の変更
索引
ログイン
この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。
====== テキストファイルを置換する ====== bashなんかだと sed -i "s/hoge/ukeke/g" test.txt なんて方法でファイル内の文字置換を行える。 しかし、今回はPerl… systemコマンドでsedを実行してやればなんとなく出来そうな気がするものの、スマートじゃないので別の方法を考える。 <code> my $filename = ["test.txt"]; my $dat1 = "hoge"; # 置換対象文字列 my $dat2 = "ukeke"; # 置換するの文字列 $^I = ".bak"; # 置換するファイルの.bakを付けてバックアップファイルを作成してくれる @ARGV = @$filename; while (<>) { s/$dat1/$dat2/g; print; } </code> これで、test.txtのhogeはukekeに置換されたはず。 ファイルをオープンして読込む必要が無いからか、実行スピードもそれなり(^^;) 全てがこれで対応できるわけではないので、状況に合わせて利用する
perl/置換.txt · 最終更新: 2011/09/28 15:03 by miyako
文書の表示
以前のリビジョン
文書の先頭へ