perl - 如何获得转换后数组的最大值

Question

新手警告。以下内容:

use List::Util qw(max);
use List::MoreUtils qw(apply);

my @list = ( 
        { 'name' => 'foo' , 'value' => 3 } , 
        { 'name' => 'bar' , 'value' => 31 } , 
        { 'name' => 'longname' , 'value' => -33 } , 
        { 'name' => 'grill' , 'value' => 333 } , 
        );

 print max apply { length $_->{name} } @list;

输出，

HASH(0x2e47c28)

而不是 8。

我做错了什么？

Answer 1

在这种情况下您不需要apply，因为length 不会修改列表项:

print max map { length $_->{name} } @list;