运行子程序n次

Question

我有下面这个 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 "[@_]\n" } 1..21;

我想弄清楚我怎么只能运行 n 次（比如 powerset 子程序的 6 次）。我尝试使用它：

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

在运行 6 次我的意思是运行第六行打印，在这种情况下 powerset {print "[@_]\n"} 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 子例程的进一步研究让我想到了有关使用计时器的问题，这些计时器取决于经过的时间（以秒为单位）而不是子例程的执行次数。

Answer 1

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

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 "[@_]\n"
  }
  1..21;

运行子程序n次

Run subroutine n number of times

perl

break

subroutine