将^全部替换为pow(x,n)函数

felonwan

jason680 发表于 2013-12-20 17:10
回复 7# felonwan

$str=~ s/\($levelN\)\^\($levelN\)/pow(\1,\2)/g;
change to
$str=~ s/($levelN)\s*\^\s*($levelN)/pow(\1,\2)/g;   # usually, we use $1,$2 in Perl

再次感谢。
您是说使用：
$str=~ s/($levelN)\s*\^\s*($levelN)/pow($1,$2)/g;
么？
\s*是对的；
这里的“\(\)”似乎不能改成“()”；
$1、$2和\1、\2一样不起作用。

felonwan

jason680 发表于 2013-12-20 17:10
回复 7# felonwan

$str=~ s/\($levelN\)\^\($levelN\)/pow(\1,\2)/g;
change to
$str=~ s/($levelN)\s*\^\s*($levelN)/pow(\1,\2)/g;   # usually, we use $1,$2 in Perl

OK了，再次感谢。

$str=~ s/(\($levelN)\))\s*\^\s*(\($levelN)\)/pow($1,$2)/g

由：
c= b /(a-b)*((d+(c+e))*a+b*(a-b)) ^ (b-a) *a
得到：
c= b /(a-b)*pow(((d+(c+e))*a+b*(a-b)),(b-a)) *a