由网友(散青丝)分享简介：我有下面的Perl代码：use strict;use warnings;sub powerset(&@) {my $callback = shift;my $bitmask = '';my $bytes = @_/8;{my @indices = grep vec($bitmask, $_, 1), 0..$#_...

我有下面的Perl代码：

use strict;
use warnings;
sub powerset(&@) {
    my $callback = shift;
    my $bitmask = '';
    my $bytes = @_/8;
    {
       my @indices = grep vec($bitmask, $_, 1), 0..$#_;
       $callback->( @_[@indices] );
       ++vec($bitmask, $_, 8) and last for 0 .. $bytes;
       redo if @indices != @_;
    }
}

powerset { print "[@_]
" } 1..21;

我正在试图弄清楚为什么我只能运行n次(比如6次Powerset子例程)。我尝试使用它：

   $x = 0;
        while ($x <= 6) {
            $x ++;
            powerset() ;
                
        }

运行6次我的意思是运行到打印的第六行，在本例中powerset {print "[@_] "} 1..21;与

的印象匹配

   []
    [1]
    [2]
    [1 2]
    [3]
    [1 3]
    [2 3]

但我不知道我会将它应用于$x = 0; while ($x <= 6) { $x ++; powerset() ; }，是在sub powerset()内部还是外部，在我看来，它在Sub内部是因为例程发生的位置。

我知道我应该使用die或return来退出运行子例程，而我应该使用else，但我仍然不知道如何在代码中组织这一点。

我觉得我应该更好地理解变量$bitmask、$bytes、$callback的作用，因为这是一个懒惰的计算，计算执行的方式不同。

对如何运行Perl子例程的进一步研究使我产生了有关使用计时器的问题，这些计时器取决于以秒为单位的运行时间，而不是该子例程的执行次数。

推荐答案

下面是一个如何限制回调调用次数的示例：

use feature qw(state);
use strict;
use warnings;

sub powerset(&@) {
    my $callback = shift;
    my $bitmask = '';
    my $bytes = @_/8;
    {
        my @indices = grep vec($bitmask, $_, 1), 0..$#_;
        $callback->( @_[@indices] );
        ++vec($bitmask, $_, 8) and last for 0 .. $bytes;
        redo if @indices != @_;
    }
}

my $limit = 6;
powerset
  {
      state $counter = 0;
      die "limit reached" if ++$counter > $limit; 
      print "[@_]
"
  }
  1..21;