有没有人在Perl中找到了懒惰求值列表的好解决方案？ 我尝试过许多方法来将类似于
转换成需要的格式，但是都没有成功。 Has anybody found a good solution for lazily-evaluated lists in Perl? I've tried a number of ways to turn something like into the desired format, but without success.
for my $item ( map { ... } @list ) {
}
我想把它转化为一种懒惰求值方式，例如通过绑定@list。我试图避免编写源代码过滤器来实现，因为它们会影响您调试代码的能力。有人成功了吗？还是只能放弃并使用while循环？
注意：我想提到的是，我有点着迷于有时很长的grep-map链，用于对列表进行函数变换。因此，并不是foreach循环或while循环的问题，而是map表达式往往在同样的垂直空间内打包更多的功能。
如前所述，for(each)是一种渴望循环，因此它希望在开始之前评估整个列表。
为简单起见，我建议使用迭代器对象或闭包，而不是尝试使用惰性评估的数组。虽然您可以使用tie来拥有一个惰性评估的无限列表，但是如果您要求（直接或间接地，如上面的foreach）整个列表（甚至是整个列表的大小），则可能会遇到问题。
不写完整的类或使用任何模块，您只需使用闭包就可以制作一个简单的迭代器工厂：
sub make_iterator {
my ($value, $max, $step) = @_;
return sub {
return if $value > $max; # Return undef when we overflow max.
my $current = $value;
$value += $step; # Increment value for next call.
return $current; # Return current iterator value.
};
}
然后使用它：
# All the even numbers between 0 - 100.
my $evens = make_iterator(0, 100, 2);
while (defined( my $x = $evens->() ) ) {
print "$x\n";
}
在CPAN上还有Tie::Array::Lazy模块，它提供了更丰富、更完整的延迟数组接口。我自己没有使用过这个模块，所以你的实际情况可能会有所不同。
祝一切顺利！
保罗
for my $item ( map { ... } grep { ... } map { ... } @list ) { ... }
写成这样：
while ( my $input = calculcate_next_element() ) {
for my $item ( map { ... } grep { ... } map { ... } $input ) { ... }
}
map 和 grep。查看该模块的源代码：它非常简单，你将学会如何编写自己的迭代器感知子例程。至少有一个特殊情况，for和foreach已经被优化为不会一次生成整个列表。而这就是范围运算符。所以你可以选择这样说：
for my $i (0..$#list) {
my $item = some_function($list[$i]);
...
}
这将遍历数组，按您的要求进行转换，而不会事先创建一个长列表的值。
如果您希望您的 map 语句返回可变数量的元素，您可以使用以下方法：
for my $i (0..$#array) {
for my $item (some_function($array[$i])) {
...
}
}
提起这个话题是为了提到我刚刚在CPAN上编写了一个名为List::Gen的模块，该模块正好可以满足发帖者的需求：
use List::Gen;
for my $item ( @{gen { ... } \@list} ) {...}
所有列表的计算都是惰性的，并且有map/grep等相应的函数。
每个函数都返回一个“生成器”，它是对绑定数组的引用。您可以直接使用绑定数组，或者使用许多访问器方法，如迭代器。
在考虑此问题时，我还调查了将数组绑定到线程结果以使Perl程序流程更像map的方法，但到目前为止，我喜欢介绍parallel "关键字"（伪装后的对象构造函数）并在结果上调用方法的API。 代码更详细的版本将作为回复发布到该线程，并可能发布到CPAN。
my $list = sub { return calculate_next_element };
while(defined(my $element = &$list)) {
...
}
毕竟，在Perl 5中，我想领带可能是你能得到的最接近的东西了。