运行子例程n次 [英] Run subroutine n number of times
本文介绍了运行子例程n次的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我有下面的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;
这篇关于运行子例程n次的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文