perl - 在数组中如何使用perl检查列表元素的最大大小

Question

my @str = qw /(I) (II) (XIII) (IV)/;
my @max = map { my $len=0; if(length($_)>$len){ $len = length($_);} } @str;
print $max;

输出为(XIII)，长度为5；

能否请你纠正我在上面的代码中做错的地方。

Answer 1

要回答标题中的问题，更清晰的选择是将其委托(delegate)给 List::Util::max :

use List::Util 'max';
print max map { length } @str;

问题中的代码片段的问题是 $len 对于 map block 的每次迭代都是局部的，因此实际上它被重置为零六次。这样做的最终结果是 $len 将对应于 @str 中最后一项的长度，这就是为什么它不符合您的预期。你可以做

my $len=0;
my @max = map { $len = length if $len < length } @str;
print $len;

但如果您没有有意义地使用 @max 做任何其他事情，那就太糟糕了。