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

问题描述

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

所有操作均符合我的预期。但是像这样使用eval感觉很笨拙。我觉得必须有更好的方法遍历这四个值的六个排列。我尝试了各种方法，但没有找到任何有效的方法，因此我放弃使用eval。

解决方法

我可能会带潜艇。

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

...

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

如果值已存在于数组中，则以上内容将简化为以下内容：

my @e = (
   [ 0,3 ],[ 0,2 ],[ 1,[ 2,1 ],$d ) = @v[$_];
   ...
}

如果我们要处理更多的值，我会考虑使用编程方法来生成 pair 突变，但是我认为没有什么简单的方法值得。

不要重新发明轮子。要遍历数组的所有排列，请使用为此目的编写的任何Perl模块，例如Algorithm::Permute（HåkonHægland的注释中指出了这一点）。

例如：

use Algorithm::Permute;
use feature qw( say );

my $perm = new Algorithm::Permute([$i,$l]);

while (@permutation = $perm->next) {
   say join "\t",@permutation;
}

我不知道您到底想实现什么，但这可能会帮助您：

my @e = ( [$i,$l],[$i,$l,$k],[$j,$i,[$k,$j]
        );

...

foreach (@e) {
    my ($a,$d) = @$_;
    ...

@e现在是一个数组引用数组。在foreach循环中，$_始终包含数组引用之一，而@$_取消引用它，从而得到数组。

这在语义上略有不同，因为分配了$i时，$j，$k，$l和@e仅被评估一次。可以，但是在您的应用程序中可能会出现问题。

如果您需要原始行为，则可以使用稍微复杂一些的解决方案来实现：

my @e = ( [\$i,\$j,\$k,\$l],[\$i,\$l,\$k],[\$j,\$i,[\$k,\$j]
        );

...

foreach (@e) {
    my ($a,$d) = map {$$_} @$_;
    ...

这意味着@e拥有变量的引用，它们将被map {$$_}取消引用。

顺便说一句，您应该考虑在foreach循环的主体中制作一个sub。

我似乎可以从注释中收集到，$i $j $k $l的值在foreach循环期间发生了变化，因此您需要使用它们的当前值。这就是eval()解决方案有些疯狂的原因。

其他人建议了您未接受的解决方案，因此也许这是您所需要的。正如Donat在他的回答中所说，您可以使foreach循环成为子循环。这样，您就可以在没有@e数组中间存储的情况下运行foreach循环。当然，这将取决于更改子内部的全局变量，这通常是一件坏事。

do_foreach($i,$l);
do_foreach($i,$k);
...etc

sub do_foreach {
    my ($a,$d) = @_;
    ... do stuff
}

我怀疑您的问题来自代码其他地方的糟糕设计决策，否则它可能会从解决中受益。但是用给出的信息很难分辨。

如果您确实只想处理示例代码中引用的那些排列，那么为什么不按以下说明进行处理（排列的平方数）呢？

注意：请更详细地说明您的问题以及可以运行的白色最小代码示例（不要忘记use strict; use warnings-两行 magic 行，这些行有助于避免很多陷阱）

use strict;
use warnings;
use feature 'say';

my($i,$l) = (1..4);

my @e = ( [$i,$j]
        );
        
do_work($_) for @e;

sub do_work {
    my $aref = shift;
    
    my @square = map { $_*$_ } @{$aref};
    
    say join "\t",@square;
}

输出

1       4       9       16
1       9       4       16
1       16      4       9
4       9       1       16
4       16      1       9
9       16      1       4

我不确定为什么只有6个排列。请研究以下代码以解决您的问题。

use strict;
use warnings;
use feature 'say';

my @array = qw/a b c d/;

my $result = mutate(\@array);

say join "\t",@{$_} for @{$result};

sub mutate {
    my $aref = shift;
    my @data = @{$aref};
    my @ret;
    
    for ( 1..scalar @data ) {
        my($c,@block) = @data;
        for ( 1..scalar @block ) {
            push @ret,[$c,@block];
            my $t = pop @block;
            unshift @block,$t;
        }
        @data = (@block,$c);
    }
    
    return \@ret;
}

输出

a       b       c       d
a       d       b       c
a       c       d       b
b       c       d       a
b       a       c       d
b       d       a       c
c       d       a       b
c       b       d       a
c       a       b       d
d       a       b       c
d       c       a       b
d       b       c       a

my @array = qw/a b c d e/;的其他示例

a       b       c       d       e
a       e       b       c       d
a       d       e       b       c
a       c       d       e       b
b       c       d       e       a
b       a       c       d       e
b       e       a       c       d
b       d       e       a       c
c       d       e       a       b
c       b       d       e       a
c       a       b       d       e
c       e       a       b       d
d       e       a       b       c
d       c       e       a       b
d       b       c       e       a
d       a       b       c       e
e       a       b       c       d
e       d       a       b       c
e       c       d       a       b
e       b       c       d       a