问个替换的问题

macgradywk

open(MMPSW,">mmp_sw.acf") or die "Cannot open mmp_sw.acf!\n";
open(MMP,"<mmp.acf") or die "Cannot open mmp.acf!\n";
while($line = <MMP>) {
   if($line=~/(xbar_WB\[\d+\]\[\d+\])/) {
     if (exists $sw_xbar{$1}) {
      $line=~s/$1/$sw_xbar{$1}/;}
     else {$line=~s/$1//;}
     }
   elsif($line=~/(le_WB\[\d+\]\[\d+\])/) {
     if (exists $sw_le{$1}) {
      $line=~s/$1/$sw_le{$1}/;}
     else {$line=~s/$1//;}
     }

         printf MMPSW "$line\n";
}

为何并没有完成替换呢？

wind_ch

1. printf MMPSW "$line\n";

复制代码

换成

1. print MMPSW "$line\n";

复制代码

macgradywk

还是没有替换，问题肯定不在这
回复 2# wind_ch


   

wind_ch

写入文件前， 先把$line打印出来看看。 另外， 打开的文件， 最好自己close掉。

xiumu2280

在正则后面加个 g

macgradywk

不管用回复 5# xiumu2280


   

macgradywk

我基本上每一步都打出来看了，在提换那一行之后打出来就没有替换成功回复 4# wind_ch


   

macgradywk

C{1}R{1}_c{0}r{0}_xbar_WB[0][0] = 0
C{1}R{1}_c{0}r{0}_xbar_WB[0][1] = 1
C{1}R{1}_c{0}r{0}_xbar_WB[0][2] = 1
C{1}R{1}_c{0}r{0}_xbar_WB[0][3] = 0
C{1}R{1}_c{0}r{0}_xbar_WB[0][4] = 1
C{1}R{1}_c{0}r{0}_xbar_WB[0][5] = 1
C{1}R{1}_c{0}r{0}_xbar_WB[0][6] = 1
C{1}R{1}_c{0}r{0}_xbar_WB[0][7] = 1
C{1}R{1}_c{0}r{0}_xbar_WB[0][8] = 1
这是其中一部分，哈希肯定没问题
回复 8# seagullin


   

wind_ch

1. $line=~s/$1/$sw_xbar{$1}/;}

复制代码

换成

1. my $replacement = $sw_xbar{$1};
   
2. $line=~s/$1/$replacement/;}

复制代码