如何用AWK或sed或Perl替换这样的文本？高手测试 :)

seesea2517

回复 9# 预言家


    我没理解成指数固定为 2 就算不错了。

seesea2517

预言家 发表于 2012-12-14 12:02
哈 强大就好

以下是用perl写的，只能匹配最简单的情形，没有你的强大得到

厉害啊，简洁强大。

结果里的标红处是特意的么。
3*p_tensor(2,a(3))+**6*p_tensor(2,a(1))*(5*p_tensor(2,a(2))**-2*a(4))+6*tensor(a(2), a(4))+6*a(1)*(-4*tensor(a(2), a(3))+a(5))

dolphinlater

1. s/\([a-z][a-z]*\)(\([0-9][0-9]*\))/\1#\2@/g
   
2. s/\([a-z][a-z]*#[0-9][0-9]*@\)^\([0-9][0-9]*\)/p_tensor#\2,\1@/g
   
3. s/\([\+-\*]\)\([a-z][a-z0-9_#@,]*\|([^()]*)\)\*\([a-z][a-z0-9_#@,]*\|([^()]*)\)/\1tensor#\2,\3@/g
   
4. s/\([a-z][a-z0-9_#@,]*\)\*\([a-z][a-z0-9_#@,]*\)/tensor#\1,\2@/g
   
5. s/#/(/g
   
6. s/@/)/g

复制代码

sed版本，可惜只能处理一层嵌套，切不支持中间存在空格，请有心人继续完善吧。