[原创] 表达式求值程序 by AWK

dbcat

今天看到论坛中有人问： awk如何计算命令行的输入?
仔细想了想用awk确实不好做。因为awk中没有像其它语言
中的eval函数，于是自己试着编了一个eval函数，用来进
行表达式求值。
   用stack对运算符号及数值进行处理是这个脚本的关键。
由于时间有限，我只实现了+-*/%五种运算。代码写的比较
粗糙，欢迎大家批评指正。


用法(表达式必须以"@"结束)：

1. 
   
2. echo "(3-1)*2.3-8.5%3-(9.12+2*3)/2@" | awk -f eval
   
3. echo 1+2+3*2 @| awk -f eval
   
4. awk -f eval <( seq 1 100|tr "\n" "+"|sed 's/+/@/100' )
   

复制代码

代码：

1. 
   
2. #! /usr/bin/awk
   
3. # simple expression evaluator awk version
   
4. # author : dbcat at chinaunix.net
   
5. # email: deeperbluecat@gmail.com
   
6. # usage: example :
   
7. # echo "(3-1)*2.3-8.5%3-(9.12+2*3)/2@" | awk -f eval
   
8. # echo 1+2+3*2 @| awk -f eval
   
9. # awk -f eval <( seq 1 100|tr "\n" "+"|sed 's/+/@/100' )
   
10. # expression must be end with "@"
    
11. # have fun
    
12. 
    
13. 
    
14. 
    
15. 
    
16. BEGIN{
    
17. 
    
18. # 运算符集合
    
19. symbol="+-*%/()@";
    
20. 
    
21. 
    
22. # 构造运算符优先级关系
    
23. oppr["++"]=">";oppr["+-"]=">";oppr["+*"]="<";oppr["+/"]="<";oppr["+%"]="<";oppr["+("]="<"; oppr["+)"]=">";oppr["+@"]=">";
    
24. oppr["-+"]=">";oppr["--"]=">";oppr["-*"]="<";oppr["-/"]="<";oppr["-%"]="<";oppr["-("]="<"; oppr["-)"]=">";oppr["-@"]=">";
    
25. oppr["*+"]=">";oppr["*-"]=">";oppr["**"]=">";oppr["*/"]=">";oppr["*%"]="<";oppr["*("]="<"; oppr["*)"]=">";oppr["*@"]=">";
    
26. oppr["/+"]=">";oppr["/-"]=">";oppr["/*"]=">";oppr["//"]=">";oppr["/%"]="<";oppr["/("]="<"; oppr["/)"]=">";oppr["/@"]=">";
    
27. oppr["%+"]=">";oppr["%-"]=">";oppr["%*"]=">";oppr["%/"]=">";oppr["%%"]=">";oppr["%("]="<"; oppr["%)"]=">";oppr["%@"]=">";
    
28. oppr["(+"]="<";oppr["(-"]="<";oppr["(*"]="<";oppr["(/"]="<";oppr["(%"]="<";oppr["(("]="<"; oppr["()"]="=";
    
29. oppr[")+"]=">";oppr[")-"]=">";oppr[")*"]=">";oppr[")/"]=">";oppr[")%"]=">";                oppr["))"]=">";oppr[")@"]=">";
    
30. oppr["@+"]="<";oppr["@-"]="<";oppr["@*"]="<";oppr["@/"]="<";oppr["@("]="<";oppr["@%"]="<";                oppr["@@"]="=";
    
31. 
    
32. 
    
33. }
    
34. 
    
35. 
    
36. 
    
37. {
    
38.    gsub(/[-*%+()/@]/," & ",$0);
    
39.    expression=$0;
    
40. }
    
41. 
    
42. 
    
43. 
    
44. END{
    
45. # 分解表达式
    
46. split(expression,Ex," ");
    
47. 
    
48. print evaluate(Ex);
    
49. 
    
50. }
    
51. 
    
52. 
    
53. 
    
54. 
    
55. 
    
56. 
    
57. # 表达式求值函数
    
58. 
    
59. function evaluate(Ex,OP,OF,c,k,t,x,str,y,r)
    
60. {
    
61.     k=1;
    
62.     push(OP,"@");
    
63.     c=Ex[k];
    
64.     while(c!="@" || gettop(OP)!="@")
    
65.       {
    
66.         if(index(symbol,c)==0)
    
67.           {         
    
68.             push(OF,c);
    
69.             k=k+1;
    
70.             c=Ex[k];
    
71.             
    
72.           }else
    
73.           {
    
74.             t=priority(oppr,gettop(OP),c);
    
75.             if(t=="<")
    
76.              {
    
77.                push(OP,c);
    
78.                k=k+1;
    
79.                c=Ex[k];
    
80.                
    
81.              }else if(t=="=")
    
82.              {
    
83. 
    
84.                pop(OP);
    
85.                k=k+1;
    
86.                c=Ex[k];
    
87.              }else{
    
88.                
    
89.                str=pop(OP);
    
90.                y=pop(OF);
    
91.                x=pop(OF);
    
92.                r=calculate(x,str,y);
    
93.                push(OF,calculate(x,str,y));
    
94.      
    
95.             }
    
96.         
    
97.           }
    
98. 
    
99.       }
    
100.   return gettop(OF);
     
101. }
     
102. 
     
103. 
     
104. # 二元运算函数
     
105. 
     
106. function calculate(x,st,y)
     
107. {
     
108.     if(st=="+")
     
109.       return x+y;
     
110.     else if(st=="-")
     
111.       return x-y;
     
112.     else if(st=="*")
     
113.       return x*y;
     
114.     else if(st=="%")
     
115.       return x%y;
     
116.     else if(st=="/")
     
117.       return x/y;
     
118. }
     
119. 
     
120. 
     
121. # 优先级别比较
     
122. 
     
123. function priority(oppr,op1,op2)
     
124. {
     
125.    return oppr[op1""op2];
     
126. }
     
127. 
     
128. 
     
129.   # 取栈顶
     
130. 
     
131. function gettop(arr,k,t)
     
132. {
     
133.     k=0;
     
134.     for(t in arr)
     
135.      {
     
136.         k++;
     
137.      }
     
138.     return arr[k-1];
     
139. }
     
140. 
     
141. #  进栈函数
     
142. 
     
143. function push(arr,x,t,k)
     
144. {
     
145.   k=0;
     
146.   for(t in arr)
     
147.    {
     
148.       k++;
     
149.    }
     
150. arr[k]=x;
     
151. 
     
152. }
     
153. 
     
154. #  出栈函数
     
155. 
     
156. function pop(arr,va,t,u)
     
157. {
     
158.   u=0;
     
159.   for(t in arr)
     
160.     {
     
161.       u++;
     
162.     }
     
163.   va=arr[u-1];
     
164.   delete arr[u-1];
     
165.   return va;
     
166. }
     
167. 
     
168. 
     

复制代码

xlink

dbcat你真厉害！

我也问了一个问题：
我知道怎么逐行读取一个文件，但怎么逐字读取一个文件？

帮帮我。

dbcat

你想干虾米?

xlink

原帖由 dbcat 于 2006-4-13 21:06 发表
你想干虾米?

我想知道方法。暂时还没想到有什么用，是一个字符一个字符地去读，就是相当于：
cat 1.txt>2.txt的功能。

[ 本帖最后由 xlink 于 2006-4-13 21:14 编辑 ]

dbcat

我猜用dd可以

xlink

原帖由 dbcat 于 2006-4-13 21:14 发表
我猜用dd可以

dd好象是用来cp文件的，我不是想去cp一个文件。
如果把一个文件全部读进一组变量里，你想想，多好的事情。

无奈何

谢谢 dbcat 费心写出的这个函数，我在windows下只有 GAWK 能够通过， awk95、nawk、mawk 都不能通过。
你的代码我现在还看不懂，看来我自己是不能通过简单修改来满足最初的需求了。先收藏起来，努力学习吧。

johnny_jiang

原帖由 xlink 于 2006-4-13 21:24 发表

dd好象是用来cp文件的，我不是想去cp一个文件。
如果把一个文件全部读进一组变量里，你想想，多好的事情。

dd是可以的，小弟试了一下，不过又缺陷

1. 
   
2. #  while char=`dd bs=1 count=1 2>/dev/null`; do echo $char; done <file
   

复制代码

由于小弟学艺不精，导致当dd读完了整个文件后，还在继续读，望高手指点

用awk实现了一下，请试试

1. 
   
2. # awk 'BEGIN { FS="" } { for (i=1;i<=NF;i++) print $i }' file
   

复制代码

寂寞烈火

dbcatMM is A awk's master ~ ^_^

苏蓉蓉

如果把乘阶运算符“^” ， 和"sin cos exp ...." 加进去就好了