perl - 在 perl 中使用标量作为条件

Question

第一次……所以如果有什么我在提出问题时没有注意的地方，请告诉我。

问题是如何使用标量作为条件，因为下面的代码不起作用。

my @parameter=('hub');

my %condition;
$condition{'hub'}{'1'}='$degree>=5';

foreach (@parameter) {
       if ($condition{$_}{'1'}) {..}
}

我以为是条件解释不正确，所以我也尝试了以下方法，也没有奏效。

if ("$condition{$parameter}{'1'}") { ..}

真的很感激任何帮助。 :)

Answer 1

您要么想要字符串 eval，它将字符串计算为 Perl 代码

if (eval $condition{$_}{'1'}) { ...

或者更安全的方法是使用 code references

$condition{'hub'}{'1'} = sub { return $degree>=5 };

if ($condition{$_}{'1'}->()) { ...

在第二个示例中，您将一段代码附加到一个变量。 $var->()语法执行代码并计算代码的返回值。