请教能否通过变量指定操作符？

kaidu

想实现如下的功能:
#!/usr/bin/perl

$op = "<";
if(3 "$op" 4)
{
       print "ok\n";
}
通过传入$op参数，来实现相应的判断，$op可以传入<,>,==,eq等等。
当然以上的代码是不能通过编译的

请问该如何写啊？
谢谢！！！

yashiro_lj

可以看看eval的用法，具体例子请参考Intermediate Perl的2.3 Dynamic Code with eval

kaidu

非常感谢，可以通过eval解决这个问题，由于perl中没有显式的boolean变量，这里也许还要绕些弯子才能达到效果
#!/usr/bin/perl

$op = "<";

$value=eval "3 $op 4 ? 1:0";
if($value)
{
        print "ok\n";
}

谢谢！:wink:

MMMIX

原帖由 kaidu 于 2009-7-30 11:18 发表
非常感谢，可以通过eval解决这个问题，由于perl中没有显式的boolean变量，这里也许还要绕些弯子才能达到效果

没必要绕，直接
$value=eval "3 $op 4";
就可以了