怎样求每行计算式的值？

unix666

假设有一文本，每一行是一个四则运算式，如：

（5+9）/2
6*9+2
23*2+69*3
....


如果用Perl计算每行的值怎么算呢？

打开文件后用 $line = $_　得到的$line被认为是字符串，怎样才能让Perl去计算它的值呢？　　　

谢谢！

hqyus

用system好像可以实现。

apile

用eval
open(FF,"tt.txt";
while(<FF>{
   s/[\r\n]//g;

   $str = "return $_ ;";
   print "$str : \n";
   print (eval $str);
   print "\n";
   $str="";
}
close(FF);
注意()要用小寫的...

unix666

多谢！　

兰花仙子

原帖由 "apile" 发表：
;

   $str = "return $_ ;";
   print "$str : \n";
   print (eval $str);
   print "\n";
   $str="";
}
close(FF);
注意()要用小寫的...

It's great! 偶就没想到用return返回一个表达式

Myheartgon

妙哉！

POLOGG

原帖由 "apile" 发表：
;

   $str = "return $_ ;";
   print "$str : \n";
   print (eval $str);
   print "\n";
   $str="";
}
close(FF);
注意()要用小寫的...

不错,就是有些没有必要的输出！

POLOGG

原帖由 "兰花仙子" 发表：


It's great! 偶就没想到用return返回一个表达式

你试过了么?
return 不是你说的返回一个表达式吧！

好像就是当作字符串输出而已！

兰花仙子

原帖由 "OLOGG" 发表：


你试过了么?
return 不是你说的返回一个表达式吧！

好像就是当作字符串输出而已！

1. cat test.pl
   
2. #!/usr/bin/perl
   
3. my $result=& test;
   
4. print $result;
   
5. 
   
6. sub test{
   
7.     return 9/3 + 2;
   
8. }
   
9. 
   
10. perl test.pl
    
11. 5

复制代码

POLOGG

[quote]原帖由 "兰花仙子"][/quote 发表：


我没有说你的这个程序,而我说的是第一个程序
$str = "return $_;";

这个里面的return不是语法意义上！