如何用AWK或sed或Perl替換這樣的文本？高手測試 :)

預(yù)言家

想把乘法符號 "*" 替換成 "tensor", 指數(shù)符號 "^" 替換成 "p_tensor"

替換規(guī)則如下:
        a(k)^n --> p_tensor(n,a(k))
        a(i)*a(j) --> tensor(a(i),a(j)), when i=/=j
但當(dāng)乘法符號 "*" 出現(xiàn)在數(shù)字和a(i)之間時, 譬如 3*a(i), 則保留該符號"*"，不進(jìn)行替換

譬如,

        5*a(i)*a(j)*(a(k1)+3*a(k2)) --> 5*tensor(tensor(a(i),a(j)),a(k1)+3*a(k2))
        a(i)^2*a(j)^2  --> tensor(p_tensor(2,a(i)),p_tensor(2,a(j)))
        ...

現(xiàn)在想用AWK 或 Sed 或 Perl 對下面的表達(dá)式進(jìn)行替換（有多行類似這樣的）:

        3*a(3)^2+6*a(1)^2*(5*a(2)^2-2*a(4))+6*a(2)*a(4)+6*a(1)*(-4*a(2)*a(3)+a(5))

有辦法可以實(shí)現(xiàn)麼?

替換后的結(jié)果應(yīng)該是這樣子的：

        3*p_tensor(2,a(3))+6*tensor(p_tensor(2,a(1)),(5*p_tensor(2,a(2))-2*a(4))+6*tensor(a(2),a(4))+6*tensor(a(1),(-4*tensor(a(2),a(3))+a(5))

yinyuemi

這已經(jīng)不是簡單的替換吧，應(yīng)該是寫一個命令解釋器

預(yù)言家

yinyuemi 發(fā)表于 2012-12-14 01:53
這已經(jīng)不是簡單的替換吧，應(yīng)該是寫一個命令解釋器

可以講講怎樣寫一個處理這個簡單算法的命令解釋器嗎？

mcshell

yinyuemi 發(fā)表于 2012-12-14 01:53
這已經(jīng)不是簡單的替換吧，應(yīng)該是寫一個命令解釋器

同意~~
我用平衡組只能取出所有符合要求的元素，替換的話 就麻煩了。。替換還要嵌套回去

seesea2517

括號和你的結(jié)果有此許不同，你檢查檢查，另外從簡考慮，使用 /([a-z]+\([^()^]+\))\^([0-9])/ 的正則，所以暫不支持a(a(i))^2這樣的嵌套格式，只支持 a(i)^2 的單層格式，如果有需要你再改進(jìn)這個正則就行了：

1. [seesea2517@UC ~]# awk -f a.awk a.txt
   
2. 原始：5*a(i)*a(j)*(a(k1)+3*a(k2))
   
3. 替換：5*tensor(tensor(a(i),a(j)),(a(k1)+3*a(k2)))
   
4. -------------
   
5. 原始：a(i)^2*a(j)^2
   
6. 替換：tensor(p_tensor(2,a(i)),p_tensor(2,a(j)))
   
7. -------------
   
8. 原始：3*a(3)^2+6*a(1)^2*(5*a(2)^2-2*a(4))+6*a(2)*a(4)+6*a(1)*(-4*a(2)*a(3)+a(5))
   
9. 
   
10. 替換：3*p_tensor(2,a(3))+6*tensor(p_tensor(2,a(1)),(5*p_tensor(2,a(2))-2*a(4)))+
    
11. 6*tensor(a(2),a(4))+6*tensor(a(1),(-4*tensor(a(2),a(3))+a(5)))
    
12. -------------
    
13. 原始：5*a(2)^2-2*a(4)
    
14. 替換：5*p_tensor(2,a(2))-2*a(4)
    
15. -------------
    
16. 
    
17. [seesea2517@UC ~]# cat a.txt
    
18. 5*a(i)*a(j)*(a(k1)+3*a(k2))
    
19. a(i)^2*a(j)^2
    
20. 3*a(3)^2+6*a(1)^2*(5*a(2)^2-2*a(4))+6*a(2)*a(4)+6*a(1)*(-4*a(2)*a(3)+a(5))
    
21. 5*a(2)^2-2*a(4)
    
22. [seesea2517@UC ~]# cat a.awk
    
23. function tensor(line, _ARGEND_, ar, len, i, str, flag, ar_tokens, count, result,
    
24. temp)
    
25. {
    
26.     count = 0
    
27.     str  = ""
    
28.     flag = 0
    
29.     i = 1
    
30.     len  = split(line, ar, "")
    
31. 
    
32.     if (ar[1] == "(")
    
33.     {
    
34.         if (ar[len] != ")")
    
35.         {
    
36.             print "括號不匹配。"
    
37.             exit
    
38.         }
    
39. 
    
40.         ++i
    
41.         --len
    
42.     }
    
43. 
    
44.     for (; i <= len; ++i)
    
45.     {
    
46.         if (ar[i] == "(")
    
47.             flag++
    
48. 
    
49.         if (ar[i] == ")")
    
50.             flag--
    
51. 
    
52.         if (flag < 0)
    
53.         {
    
54.             print "括號不匹配。"
    
55.             exit
    
56.         }
    
57. 
    
58.         if (flag == 0 && (ar[i] ~ /[+*/]/ || (ar[i] == "-" && ar[i-1] ~ /[0-9)]/
    
59. )))
    
60.         {
    
61.             ar_tokens[count++] = ar[i]
    
62.             str = ""
    
63.             continue
    
64.         }
    
65. 
    
66.         str = str""ar[i]
    
67.         if (i == len || (ar[i+1] ~ /[-+*/]/ && flag == 0))
    
68.         {
    
69.             if (str ~ /^\(/)
    
70.             {
    
71.                 ar_tokens[count++] = "("tensor(str)")"
    
72.             } else {
    
73.                 ar_tokens[count++] = str
    
74.             }
    
75.         }
    
76.     }
    
77. 
    
78.     result = ""
    
79.     temp = ""
    
80.     for (i = 0; i < count; ++i)
    
81.     {
    
82.         if (temp == "")
    
83.             temp = ar_tokens[i]
    
84. 
    
85.         if (ar_tokens[i+1] == "*" && temp !~ /^[-0-9]+$|^$/)
    
86.         {
    
87.             temp = "tensor("temp","ar_tokens[i+2]")"
    
88.             i += 2
    
89. 
    
90.             if (i < count)
    
91.             {
    
92.                 i--
    
93.                 continue
    
94.             }
    
95.         }
    
96. 
    
97.         result = result""temp
    
98.         temp = ""
    
99.     }
    
100. 
     
101.     return result
     
102. }
     
103. 
     
104. BEGIN {
     
105.     FS=""
     
106. }
     
107. 
     
108. {
     
109.     print "原始：" $0
     
110.     print "替換：" gensub(/([a-z]+\([^()^]+\))\^([0-9])/, "p_tensor(\\2,\\1)", "g", tensor($0))
     
111.     print "-------------"
     
112. }

復(fù)制代碼

seesea2517

屏幕寬度不夠換行了，修正一下：

1. [seesea2517@UC ~]# awk -f a.awk a.txt
   
2. 原始：5*a(i)*a(j)*(a(k1)+3*a(k2))
   
3. 替換：5*tensor(tensor(a(i),a(j)),(a(k1)+3*a(k2)))
   
4. -------------
   
5. 原始：a(i)^2*a(j)^2
   
6. 替換：tensor(p_tensor(2,a(i)),p_tensor(2,a(j)))
   
7. -------------
   
8. 原始：3*a(3)^2+6*a(1)^2*(5*a(2)^2-2*a(4))+6*a(2)*a(4)+6*a(1)*(-4*a(2)*a(3)+a(5))
   
9. 
   
10. 替換：3*p_tensor(2,a(3))+6*tensor(p_tensor(2,a(1)),(5*p_tensor(2,a(2))-2*a(4)))+6*tensor(a(2),a(4))+6*tensor(a(1),(-4*tensor(a(2),a(3))+a(5)))
    
11. -------------
    
12. 原始：5*a(2)^2-2*a(4)
    
13. 替換：5*p_tensor(2,a(2))-2*a(4)
    
14. -------------
    
15. 
    
16. [seesea2517@UC ~]# cat a.txt
    
17. 5*a(i)*a(j)*(a(k1)+3*a(k2))
    
18. a(i)^2*a(j)^2
    
19. 3*a(3)^2+6*a(1)^2*(5*a(2)^2-2*a(4))+6*a(2)*a(4)+6*a(1)*(-4*a(2)*a(3)+a(5))
    
20. 5*a(2)^2-2*a(4)
    
21. [seesea2517@UC ~]# cat a.awk
    
22. function tensor(line, _ARGEND_, ar, len, i, str, flag, ar_tokens, count, result, temp)
    
23. {
    
24.     count = 0
    
25.     str  = ""
    
26.     flag = 0
    
27.     i = 1
    
28.     len  = split(line, ar, "")
    
29. 
    
30.     if (ar[1] == "(")
    
31.     {
    
32.         if (ar[len] != ")")
    
33.         {
    
34.             print "括號不匹配。"
    
35.             exit
    
36.         }
    
37. 
    
38.         ++i
    
39.         --len
    
40.     }
    
41. 
    
42.     for (; i <= len; ++i)
    
43.     {
    
44.         if (ar[i] == "(")
    
45.             flag++
    
46. 
    
47.         if (ar[i] == ")")
    
48.             flag--
    
49. 
    
50.         if (flag < 0)
    
51.         {
    
52.             print "括號不匹配。"
    
53.             exit
    
54.         }
    
55. 
    
56.         if (flag == 0 && (ar[i] ~ /[+*/]/ || (ar[i] == "-" && ar[i-1] ~ /[0-9)]/)))
    
57.         {
    
58.             ar_tokens[count++] = ar[i]
    
59.             str = ""
    
60.             continue
    
61.         }
    
62. 
    
63.         str = str""ar[i]
    
64.         if (i == len || (ar[i+1] ~ /[-+*/]/ && flag == 0))
    
65.         {
    
66.             if (str ~ /^\(/)
    
67.             {
    
68.                 ar_tokens[count++] = "("tensor(str)")"
    
69.             } else {
    
70.                 ar_tokens[count++] = str
    
71.             }
    
72.         }
    
73.     }
    
74. 
    
75.     result = ""
    
76.     temp = ""
    
77.     for (i = 0; i < count; ++i)
    
78.     {
    
79.         if (temp == "")
    
80.             temp = ar_tokens[i]
    
81. 
    
82.         if (ar_tokens[i+1] == "*" && temp !~ /^[-0-9]+$|^$/)
    
83.         {
    
84.             temp = "tensor("temp","ar_tokens[i+2]")"
    
85.             i += 2
    
86. 
    
87.             if (i < count)
    
88.             {
    
89.                 i--
    
90.                 continue
    
91.             }
    
92.         }
    
93. 
    
94.         result = result""temp
    
95.         temp = ""
    
96.     }
    
97. 
    
98.     return result
    
99. }
    
100. 
     
101. BEGIN {
     
102.     FS=""
     
103. }
     
104. 
     
105. {
     
106.     print "原始：" $0
     
107.     print "替換：" gensub(/([a-z]+\([^()^]+\))\^([0-9])/, "p_tensor(\\2,\\1)", "g", tensor($0))
     
108.     print "-------------"
     
109. }

復(fù)制代碼

預(yù)言家

很好很強(qiáng)大 搬來板凳細(xì)看

seesea2517 發(fā)表于 2012-12-14 10:14
屏幕寬度不夠換行了，修正一下：

seesea2517

回復(fù) 7# 預(yù)言家


    代碼很丑，能不看盡量別看……

預(yù)言家

完美！

在倒數(shù)第三行加上"+", 這樣當(dāng)指數(shù)為多位數(shù)字的時候，也可以匹配
print "替換：" gensub(/([a-z]+\([^()^]+\))\^([0-9]+)/, "p_tensor(\\2,\\1)", "g", tensor($0))


回復(fù) 6# seesea2517


   

預(yù)言家

seesea2517 發(fā)表于 2012-12-14 11:09
回復(fù) 7# 預(yù)言家

哈 強(qiáng)大就好

以下是用perl寫的，只能匹配最簡單的情形，沒有你的強(qiáng)大

1. 
   
2. $cat tensor.pl
   
3. 
   
4. while(<>) {
   
5.    s/(a\(\d+\))\^(\d+)/p_tensor($2,$1)/g;
   
6.    s/(a\((\d+)\))\*(a\((\d+)\))/tensor($1, $3)/g if $2 != $4;
   
7.    print;
   
8. }
   

復(fù)制代碼

1. 
   
2. echo "3*a(3)^2+6*a(1)^2*(5*a(2)^2-2*a(4))+6*a(2)*a(4)+6*a(1)*(-4*a(2)*a(3)+a(5))" | perl tensor.pl
   

復(fù)制代碼

得到

1. 
   
2.   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))
   

復(fù)制代碼