创建一个惰性散列迭代器

Question

在研究这个问题时，我查看了《高阶 Perl》一书中的迭代器章节，其中的一些材料让我有点不知所措，并认为不一定能解决我在这里特别想要的内容。

我所说的惰性散列迭代器是一种创建模拟这种行为的结构的方法：

%Ds = {
       '1' => 1 .. 20;
       '2' => 21 .. 40;
       '3' => 41 .. 60;
       '4' => 61 .. 80;
       ...
     }

不幸的是，由于这是一个散列，它不会按顺序排列，因此在数字非常大的情况下无用。

行为是这样的：

I have a number. 
I need to compare it with a sequence of ranges and as a result of the comparison the 
code/sub would return another number that is the "key" of that range in case the
number is in that range. (>= with the beginning or <= with the end point of said range)
The "key" of the ranges are numbers from 1..2..3 and so on.
The code/sub will always return for a positive integer no matter how large it is.

通过懒惰地实现这一切，我的意思是如果有一种方法可以模拟这种行为，而不是在每次调用 sub 或循环迭代时使用它们各自的“键”计算范围序列。基本上计算一次。

是的，我确实可以选择一个最大边界，在循环中对其进行硬编码并完成它，但问题是我不知道我最终需要多少这些步骤。

有没有办法使用 perl 结构来做到这一点，或者也许有一个提供这种行为的 CPAN 模块，但我对它的简单搜索并没有发现它。

这里有一段代码说明了我的意思：

sub get_nr {
  my $nr = shift;
  my %ds = map {  $a = '1' if /1/ .. /20/;
                  $a = '2' if /21/ .. /40/;
                  $a = '3' if /41/ .. /60/;
                  $a = '4' if /61/ .. /80/;
                  $_ => $a } 1 .. 80;

  while (my ($k, $v) = each %ds) {
     if ( $k == $nr){
     print "number is in range $v \n";
     }
  }
}

输出：

 get_nr(4);
 get_nr(15);
 get_nr(22);
 get_nr(45);

是：

number is in range 1
number is in range 1
number is in range 2
number is in range 3

Answer 1

根据 cmets 中的讨论，您想要的代码似乎是一个非常简单的子程序

sub get_nr {
    my $nr = shift;
    my $range = int(($nr-1) / 20) + 1;
    return $range;
}

您需要补偿边缘情况，例如，您希望 20 返回 1，因此我们需要在除数之前从数字中减去 1。

如果您想进一步自定义，您可以使用变量作为范围大小，而不是硬编码数字。

Answer 2

sub get_range_number {
   my ($n) = @_;
   return int(($n-1)/20) + 1;
}

print "$_ is in range ".get_range_number($_)."\n"
   for 4, 15, 22, 45;