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

felonwan

假如是c语言里的pow(x,n)函数是全部用a^b这样的形式写的，怎么把它们替换回来？
只用cut、grep、sed、awk 等这样的脚本能否处理？
好像涉及到嵌套的括号匹配哈。

例如，如下文本：
c= b /(a-b) *(a+b*(a-b)) ^ (b-a) *a;
printf("%lf\t%lf\t%lf\t%lf\n",10 ^ 10,10.11 ^ 11, a ^ 2,a ^ n,(a+b) ^ 2, (a+b) ^ (b-a),2 ^ (a+b), 2.0 ^ (a+b));

felonwan

自己写的不对的脚本，抛砖引玉。

#!/bin/bash

fnw=`basename $1`_n.c
cp $1 $fnw

#简单的能用
# a.b ^ c
sed -i 's/\([a-zA-Z0-9]\{1,\}\)\.\([a-zA-Z0-9]\{1,\}\)\([ ]\{0,\}\)\^\([ ]\{0,\}\)\([a-zA-Z0-9]\{1,\}\)/pow(\1.\2,\3)/g' $fnw
# a ^ b
sed -i 's/\([a-zA-Z0-9]\{1,\}\)\([ ]\{0,\}\)\^\([ ]\{0,\}\)\([a-zA-Z0-9]\{1,\}\)/pow(\1,\4)/g' $fnw

#下面的都有问题，不能处理括号的配对
# (a+b)^n
sed -i 's/\([^a-zA-Z0-9]\{0,\}\)\((.*)\)\([\ ]\{0,\}\)\^\([ ]\{0,\}\)\([a-ZA-Z0-9]\)\([^a-zA-Z0-9]\{0,\}\)/\1pow(\2,\5)\6/g' $fnw
# a^(c+d)
sed -i 's/\([^a-zA-Z0-9]\{0,\}\)\([a-zA-Z0-9]\)\([\ ]\{0,\}\)\^\([ ]\{0,\}\)\((.*)\)\([^a-zA-Z0-9]\{0,\}\)/pow(\1,\4)\5/g' $fnw
# (a+b)^(c+d)
sed -i 's/\([,=+\-\*\/\^\&\|]\{1,\}\)\([ ]\{0,\}\)\((.*)\)\([ ]\{0,\}\)\^\([ ]\{0,\}\)\((.*)\)\([ ]\{0,\}\)\([,+\-\*\/\^\&\|]\{0,\}\)/\1pow(\3,\6)/g' $fnw

felonwan

哈，在坛子上大概找到答案了：
http://bbs.chinaunix.net/thread-1804102-2-1.html

研究研究。

Herowinter

正则里面好像有个叫平衡组的
用堆栈来解决这种匹配问题，但
个人没怎么用过，只能友情帮顶了。

felonwan

Herowinter 发表于 2013-12-20 14:20
正则里面好像有个叫平衡组的
用堆栈来解决这种匹配问题，但
个人没怎么用过，只能友情帮顶了。

谢谢，先考虑用动态正则表达式试试。

jason680

回复 1# felonwan


How about this

$ awk 'BEGIN{FS="";split("=,;+-*/",x,"");for(n in x)k[x[n]]=1}{c=0;s[c]=t[c]="";for(n=0;n++<NF;){if($n in k){s[c]=s[c]t[c];if(p[c]==1){p[c]=0;s[c]=s[c]")"}s[c]=s[c]$n;t[c]=""}else{if($n=="("){s[c]=s[c]t[c];t[c]=$n;c++;s[c]=t[c]=""}if($n==")"){t[c-1]=s[c]t[c];c--}if($n=="^"){p[c]=1;s[c]=s[c]" pow("t[c]",";t[c]=$n="";}t[c]=t[c]$n}}print s[c]}' FILE
c= b /(a-b) * pow((a+b*(a-b)) , (b-a) )*a;
printf("%lf\t%lf\t%lf\t%lf\n", pow(10 , 10), pow(10.11 , 11), pow( a , 2), pow(a , n), pow((a+b) , 2),  pow((a+b) , (b-a)), pow(2 , (a+b)), pow( 2.0 , (a+b));

felonwan

括号配对的问题确实是解决了。

不过第一次写perl，它的正则表达式和sed还不太一样，不知道怎么匹配多个空格和表示“\(……\)”选定的内容。。。

#!/usr/bin/perl
my $str="c= b /(a-b)*((d+(c+e))*a+b*(a-b))^(b-a) *a";
my $levelN;
$levelN = qr/ (?> [^()]+ | \( (??{ $levelN }) \) )* /x;
$str=~ s/\($levelN\)\^\($levelN\)/pow(\1,\2)/g;
print $str."\n";

它的结果是：
c= b /(a-b)*pow(,) *a

felonwan

太牛了！！！
虽不明，但觉厉！

坐等sed版本。

jason680 发表于 2013-12-20 16:49
回复 1# felonwan

jason680

回复 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

   

felonwan

jason680 发表于 2013-12-20 16:49
How about this

$ awk 'BEGIN{FS="";split("=,;+-*/",x,"";for(n in x)k[x[n]]=1}{c=0;s[c]=t[c]="";for(n=0;n++<NF{if($n in k){s[c]=s[c]t[c];if(p[c]==1){p[c]=0;s[c]=s[c]""}s[c]=s[c]$n;t[c]=""}else{if($n=="("{s[c]=s[c]t[c];t[c]=$n;c++;s[c]=t[c]=""}if($n==""{t[c-1]=s[c]t[c];c--}if($n=="^"{p[c]=1;s[c]=s[c]" pow("t[c]",";t[c]=$n="";}t[c]=t[c]$n}}print s[c]}' FILE

有点小问题，好像是里面只考虑了括号匹配，把不是“^”左右的也去掉了。
不管怎样，还是很感谢。
main(){
……
}

成了：
main
……