perl 如何直接修改文件

baoyu05

[root@as5 ~]# cat n
#!/usr/bin/perl -w
$^I="";
open NN,">>","nn";
while(<NN>){
s/name/QQ/;
print
}
[root@as5 ~]# cat nn
My name is baoyu
[root@as5 ~]# ./n
[root@as5 ~]# cat nn
My name is baoyu
[root@as5 ~]#

blackold

回复 1# baoyu05


    搞到shell来了？

   -i

baoyu05

回复 2# blackold


    都是脚本，不分家。呵呵
-i 放到哪里

nuclearxin

逻辑有问题
open NN,">>","nn";
这行

perl -i -pe 's/name/QQ/' nn

nuclearxin

你想用读写的方式打开？

那麽 替换的字符串必须于原来的相等；
用了 ^I 就是向新的备份文件写入

baoyu05

回复 5# nuclearxin


    那要怎么写，什么方式打开无所谓。只有能直接修改即可。

baoyu05

回复 4# nuclearxin


    写在perl文件里怎么写

bbgg1983

perl不懂，只能观望了

beyondfly

何不用sed

baoyu05

回复 9# beyondfly


    修改文件只是perl脚本中的一部分，所以我想用perl