如何避免在 Perl 中使用“eval”？

Question

我有这样的代码：

my @e = ( '($i,$j, $k,$l)',  '($i,$k, $j,$l)',  '($i,$l, $j,$k)',
          '($j,$k, $i,$l)',  '($j,$l, $i,$k)',  '($k,$l, $i,$j)'
        );
#
# Assign various sets of values to $i,$j,$k,$l
#
        foreach ( @e ) {
          my ($a,$b, $c,$d) = eval $_;
#
# Do calculations based on the values of $a,$b,$c,$d
#

这一切都按我的意图工作。但是像这样使用eval感觉很笨拙。我觉得必须有更好的方法来循环这四个值的六个排列。我尝试了各种方法，但没有发现任何有效的方法，所以我又重新使用 eval。

Answer 1

我可能会和潜艇一起去。

my @e = (
   sub { @_[ 0,1, 2,3 ] },
   sub { @_[ 0,2, 1,3 ] },
   sub { @_[ 0,3, 1,2 ] },
   sub { @_[ 1,2, 0,3 ] },
   sub { @_[ 1,3, 0,2 ] },
   sub { @_[ 2,3, 0,1 ] },
);

...

for (@e) {
   my ( $a,$b, $c,$d ) = $_->($i, $j, $k, $l);
   ...
}

如果值已经在一个数组中，上面的简化为：

my @e = (
   [ 0,1, 2,3 ],
   [ 0,2, 1,3 ],
   [ 0,3, 1,2 ],
   [ 1,2, 0,3 ],
   [ 1,3, 0,2 ],
   [ 2,3, 0,1 ],
);

...

for (@e) {
   my ( $a,$b, $c,$d ) = @v[$_];
   ...
}

如果我们要处理更多值，我会考虑使用编程方法来生成对突变，但我想不出一些简单到值得的东西。