作者lalelee (找我玩五子棋)
看板Perl
标题Re: [问题] 搜寻与取代更改档案内容
时间Tue Mar 4 11:58:07 2008
※ 引述《lalelee (找我玩五子棋)》之铭言：
: 情境 ： a 里有某些内容我想要替换掉
: code 如下 :
: open FILE,"a";
: open INPUT,">b";
: while<FILE>
: {
: s/要替换的内容/更改过後的内容/ ;
: print INPUT $_;
: }
: close INPUT;
: close FILE;
: 我可不可以直接更改a的内容，而不需再另开一个b写入更改过後的内容？？
: 谢谢大家~
推文里说可用 $^I 来备分并直接修改a的内容
以下是我实验的code :
$^I = ".bak";
open FILE,">a";
while (<FILE>)
{
s/要替换的内容/更改过後的内容/;
print;
}
close FILE;
above code is not working~
後来我发现 $^I 只对argument作用 所以改写一下
$^I = ".bak";
@ARGV = "a";
while (<>)
{
s/要替换的内容/更改过後的内容/;
print;
}
呵呵~ 这样就可以了~
谢谢版友们的建议~
--
蒋干打电话给曹操
蒋干：「操你吗？我干。」 曹操：「我操，你谁啊？」
蒋干：「我干啊！」 曹操：「我操，你到底是谁啊？」
蒋干：「我干啊，你操吧。」 曹操：「他妈的，你到底是谁啊，我操！」
蒋干：「我干，我干啊！」 曹操：「我操！」
此时蒋干的妈妈接过电话：「我干他妈啊，你操吧？操你妈呢？」…
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.217.199.193