请教逻辑判断问题

linnye

$statement="a==b and c==d and e!=f" ;#statement是多个逻辑判断的整合
if($statement){...} #不合理
问题就出现了,这个判断始终都是真，因素这个字符串不为空，而不会去判断$statement的内容是否为为真；
另外，$statement是可变的，不能直接写死在程序，从配置文件中读取；这个判断是在循环体内，所以最好不要太复杂的计算；
请教给我高手如何实现。

picbhan

eval($statement)

yinsong198611

#!/usr/bin/perl -w
use strict;
use 5.010;

my $statement= sub { 1==2 and 2==1};

if($statement->()){

        print "yinsong hao shuai","\n";

}else{
        print "yinsong fei chang shuai","\n";
}

linnye

回复 2# picbhan
非常感谢，功能实现了，不过执行起来太慢


   

rubyish

picbhan 发表于 2013-05-24 08:15
eval($statement)

学习~

picbhan

linnye 发表于 2013-05-24 13:01
回复 2# picbhan
非常感谢，功能实现了，不过执行起来太慢

那就应该是你程序的问题了吧，不至于是eval拖了后腿吧？

rubyish

请 lz paste CODE 看看