紧急求助如何替换=号后面的变量

wuyue1106

一个配置文件中包括这样一行 SysinfoFile=$(OB_REL)/config/sysinfo_ng_kt  内容，我想把$(OB_REL)替换成$(HOME)
不知如何实现，其他行也包含$(OB_REL)这个变量 但我只要替换这一行的内容

yizuwei520

$(ob_rel)=$(home);

Perl_Er

原帖由 wuyue1106 于 2009-7-3 08:54 发表
一个配置文件中包括这样一行 SysinfoFile=$(OB_REL)/config/sysinfo_ng_kt  内容，我想把$(OB_REL)替换成$(HOME)
不知如何实现，其他行也包含$(OB_REL)这个变量 但我只要替换这一行的内容

my $s = 'SysinfoFile=$(OB_REL)/config/sysinfo_ng_kt';

$s =~ s/(SysinfoFile)\=\$\((OB_REL)\)(.+)/$1=\$(HOME)$3/;

print $s,"\n";

wuyue1106

我也想过把原内容当成一个变量  但是我写的没通过  .cfg文件内容没变
#!/usr/bin/perl
use warnings;

$str1='SysinfoFile=$(OB_REL)/config/sysinfo_ng_kt';
$str2='SysinfoFile=$(HOME)/config/sysinfo_ng_kt';

#遍历所有以.cfg结尾的文件名,并替换其内容
while(CommBusiMgnt.cfg){
  ` /usr/bin/perl -p -i -e  's/$str1/$str2/g'  $_ `;
}

这样写有问题吗  请大侠指点

Perl_Er

while(CommBusiMgnt.cfg){这是什么用法

churchmice

1. 
   
2. /usr/bin/perl -p -i -ne  's/$str1/$str2/g'  $_
   

复制代码

你先试试一个文件行不

wuyue1106

原帖由 Perl_Er 于 2009-7-3 09:36 发表
while(CommBusiMgnt.cfg){这是什么用法

少打了 应该是<CommBusiMgnt.cfg>

churchmice

Care for the trailing \n

ulmer

原帖由 wuyue1106 于 2009-7-3 09:27 发表
我也想过把原内容当成一个变量  但是我写的没通过  .cfg文件内容没变
#!/usr/bin/perl
use warnings;

$str1='SysinfoFile=$(OB_REL)/config/sysinfo_ng_kt';
$str2='SysinfoFile=$(HOME)/config/sysinfo_ ...

perl -le 'print qq(Blind cat captures a dead mouse!)'