文本替換字符串

fufelixzh

將文本中inject_wise 換成inject_win
要求將原文替換，然后生成一個(gè)備份文件。
可以用^I or Tie:FILE.

如果不是替換原文件，我的思路是
read $fd1, print $fd2 .
不知道還有沒有其他的思路

fufelixzh

#!/opt/exp/bin/perl -w
use strict;

$^I = ".bak";

while (my $line=<>) {
       $line=~s/inject_wise/inject_win/g;
        print $line;
}      

除了這個(gè)方法

jason680

回復(fù) 2# fufelixzh

one line command?

$ perl -i.bak -lape '{s/inject_wise/inject_win/g}' FILE