将x^n全部替换为pow(x,n)函数的perl脚本

felonwan

不是很完美，求高手完美化：

1. #!/usr/bin/perl
   
2. 
   
3. # dynamic regexp
   
4. my $levelN;
   
5. $levelN = qr/ (?> [^()]+ | \( (??{ $levelN }) \) )* /x;
   
6. 
   
7. # open file, do the replacement and print to screen.
   
8. if(open(FH,@ARGV[0])){
   
9.   while(){
   
10.     my $line=$_;
    
11.     my $line1=$line;
    
12.     while(1){
    
13.       $line1=~ s/(\($levelN\))\s*\^\s*(\($levelN\))/pow($1,$2)/g; #(a+b)^(c+d)
    
14.       if("$line1" eq "$line"){last;}
    
15.       $line=$line1;
    
16.     }
    
17.     while(1){
    
18.       $line1=~ s/(\w*\.*\w*)\s*\^\s*(\($levelN\))/pow($1,$2)/g; #a^(b+c)
    
19.       if("$line1" eq "$line"){last;}
    
20.       $line=$line1;
    
21.     }
    
22.     while(1){
    
23.       $line1=~ s/(\($levelN\))\s*\^\s*(\w*\.*\w*)/pow($1,$2)/g; #(a+b)^c
    
24.       if("$line1" eq "$line"){last;}
    
25.       $line=$line1;
    
26.     }
    
27.     while(1){
    
28.       $line1=~ s/(\w*\.*\w*)\s*\^\s*(\w*\.*\w)/pow($1,$2)/g; #a^b
    
29.       if("$line1" eq "$line"){last;}
    
30.       $line=$line1;
    
31.     }
    
32.     print "$line1"
    
33.   }
    
34.   close(FH);
    
35. }
    
36. else{
    
37.   print "Error: Open FILE '@ARGV[0]' fail!\n"
    
38. }

复制代码

pitonas

{:2_169:}不完美，求高手完美化：

1. #!/usr/bin/perl -w
   
2. 
   
3. while (<DATA>) {
   
4.     print"old\t$_";
   
5.     if (/\^/) {
   
6.         $_ = scalar reverse $_;
   
7.         1 while
   
8.           s/(\).*?\((?:wop)?|\w+)\s*\^\s*(\).*?\((?:wop)?|\w+)/)$1 ,$2(wop/g;
   
9.         print "new\t", scalar reverse $_;
   
10.     }
    
11.     else { print "new\t$_" }
    
12.     print "\n";
    
13. }
    
14. __DATA__
    
15. a = 1 ^ 2 ^ 3 * 2^3^4
    
16. # There is no pow
    
17. b = 3 ^5 + 1 ^ 3 ^ 5 + 2 ^ 3
    
18. c = 1 ^(2+3)^2 + 1^(2^3+1)

复制代码

old     a = 1 ^ 2 ^ 3 * 2^3^4
new     a = pow(1, pow(2, 3)) * pow(2, pow(3, 4))

old     # There is no pow
new     # There is no pow

old     b = 3 ^5 + 1 ^ 3 ^ 5 + 2 ^ 3
new     b = pow(3, 5) + pow(1, pow(3, 5) + pow(2, 3))

old     c = 1 ^(2+3)^2 + 1^(2^3+1)
new     c = pow(1, pow((2+3), 2) + pow(1, (pow(2, 3)+1)))

climby

我粗略写了个.非100%完美，因为应付你提到的几种case是没问题，但是如果原文件如果存在()未配对使用的情况，这个就有些问题了
注意正则中\w和\+中间的空格哦

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. my $file_name = $ARGV[0];
   
5. 
   
6. open( my $fh, "<", $file_name ) or die "Can't open file:'$file_name'";
   
7. while ( my $line = <$fh> ) {
   
8.         if ( $line =~ m/\^/ ) {
   
9.                 $line =~ s/(\(?[\w \+]+\)?)\^(\(?[\w \+]+\)?)/pow\($1,$2\)/g;
   
10. 
    
11.         }
    
12.                
    
13.         print $line;
    
14. }
    
15. 
    

复制代码

perl6ide

是否考虑一下正则里的环视...

felonwan

回复 3# pitonas


    哈，之前没有考虑有人写a^b^c这样的情况哈。
   试了下，latex和matlab都是从左往右，mathematica里是从右到左。
   个人觉得还是按从左往右结合比较符合现代一般人的阅读习惯，而且容易处理。
   也就是a^b^c=(a^b)^c=a^(b*c)，也就是pow(pow(a,b),c)或pow(a,b*c)。

felonwan

回复 4# perl6ide


    不好意思，菜鸟，不太懂环视的意思，还得再看看。

pitonas

{:2_172:} perl ** 是从右到左
回复 5# felonwan


   

felonwan

pitonas 发表于 2013-12-22 17:55
perl ** 是从右到左
回复 5# felonwan

确实，Fortran也是右到左。

可以规避a^b^c这种模糊这种表达形式：加上判断，要求说明是(a^b)^c还是a^(b^c)。
if(/\^\s*\($levelN\)\s*\^/ | /\^\s*\w*\s*\^/)
  {die "Error: Form 'A^B^C' is not allowed, please clarify it as '(A^B)^C' or 'A^(B^C)'!";}

felonwan

climby 发表于 2013-12-21 10:08
我粗略写了个.非100%完美，因为应付你提到的几种case是没问题，但是如果原文件如果存在()未配对使用的情况， ...

呵呵，不考虑原文件括号多了或少了、不成对，假设都是对的。
不好意思，我忘了给些测试用例了，像下面这样的得也能正确转化：

  c= (a+b*(a-b)) ^ (b-a) *a;
  d= ((a+b)^(c+a)) ^ (a+b^(c+b^a));
  printf("%lf\t%lf\t%lf\t%lf\t%lf\t%lf\t%lf\t%lf\n", 10^10.12^3.1, 10.11^11, a^2, a^n, (a+b)^2.2, (a+b)^(b-a), 2^(a+b), 2.0^(a+b));

felonwan

综合climby和pitonas的代码写了一个，感觉挺不错了：功能完整，能想到的异常都能处理，代码简洁度也是非常好。
有一个小缺点：含有一些不必要的括号。
a^b^c是按(a^b)^c来处理的。

1. #!/usr/bin/perl
   
2. my $levelN = qr/ (?> [^()]+ | \( (??{ $levelN }) \) )* /x;
   
3. while (<STDIN>) {
   
4.   (/\^/) while
   
5.     s/(\w*\.*\w+|[pow]*\($levelN\))\s*\^\s*([pow]*\($levelN\)|\w+\.*\w*)/pow($1,$2)/;
   
6.   print "$_";
   
7. }

复制代码

测试：
$ echo -e "a.b^(c+d)^(e-f/g^h*i)" | ./perfect
pow(pow(a.b,(c+d)),(e-f/pow(g,h)*i))
$ echo -e "^ (c+d) *^/ (e-f/g^h*i)" | ./perfect
^ (c+d) *^/ (e-f/pow(g,h)*i)

p.s. 完美真费时。