perl读取文件中的一行,并替换其中的某些字符

liuqiong7618

这是的自己写的一个perl脚本--我不太会写
麻烦大家帮我看看,怎么无法运行:

我的目的是，打开一个文件，然后查找某行文件是否包含字串“disable = yes”，如果有，则将yes修改为no

if (!open(FILE,"文件名"))
    {
        print "The file cannot found";
        exit;
    }
else{
          while ($line = <>)
         {
      
             printf $line;

            #如果line中,有包含字串"disable ",则赋值给line1
            line1 ='"$line" | grep "disable"';
   
            if [-n "$line1" ]
            then
            sed 's/yes/no/'; 将yes修改为no
           #else
            #then print "The string cannot be found";
          }
}

kgn28

用vim：
:s/disable = yes/disable = no/g
或者perl同样的功能
while(<>){
chomp;
s/disable = yes/disable = no/g;
}
嘿嘿，这个有点笨的方法。

zhousqy

lz有点复杂化了...

liuqiong7618

line1 ='"$line" | grep "disable"';
   
            if [-n "$line1" ]
为什么这里老是运行不过去呢

我第一次写这个,看不懂哪里有问题

liuqiong7618

hi kgn28:

s/disable = yes/disable = no/g;
我试过这个方法,还是不行,,yes没有修改成no

会不会是disable = yes之间的空格不一定,,那文档里面是disable         =yes

那怎么把中间的空格给屏蔽了呢....

liuqiong7618

楼上的GG:
while(<>){
$_ =~ s/yes/no/ if m/disable = yes/
}

是这个意思吗??
我也运行了下,还是没有修改成功

kgn28

回复 7# liuqiong7618


    if m/disable\s*=\s*no/

liuqiong7618

谢谢kgn28 和一路征程一路笑 两位

while(<>){

$_ =~ s/yes/no/ if m/disable\s*=\s*yes/
printf $_
}

这样运行后,打印出来的结果显示将yes成功替换成no了

liuqiong7618

这样运行后,打印出来$_的结果显示将yes成功替换成no了

但是将那个文件打开后,字串却还是yes

后来,别人介绍说if (!open(FILE,"文件名")),这种方式打开,是以只读方式打开

如果修改成if (!open(FILE,">文件名")),这是可写方式,它会把整个文档清空

那怎么保存这个文件呀