用数组初始化哈希的键

Question

我需要初始化哈希值的哈希值。我的方法如下，请问有更优雅的方法吗？

$biggest_word_size = 0;
foreach $sig (@signals) 
    {
    $sigs->{$sig} = "None";
    $biggest_word_size = 
        ( $biggest_word_size > length($sig) ) ? $biggest_word_size : length($sig) ;
    }

Answer 1

1. 说实话，对于你想要的，这几乎是你想要的优雅。您可以用稍微更惯用的方式来做到这一点，但是为什么？它具有完美的可读性并且足够简洁

2. 如果您的数组大小不太大，并且您不关心压缩最后一盎司的性能，您可以以稍微更惯用的方式分别执行这两个任务（在扫描数组两次的成本）：

    使用 List::Util qw(max);
    我的 $sigs = { 地图 {$_ => '无'} @signals };
    我的 $biggest_word_size = 最大映射 {length} @signals;
   

Answer 2

use List::Util qw[max];
my $biggest_word_size = 0;
my $sigs = { map { 
    $biggest_word_size = max($biggest_word_size, length $_);
    $_ => 'None' } @signals };

Answer 3

好吧，如果忽略 $biggest_word_size 位，则可以从数组初始化 hashref

my $sigs = { map { $_ => 'None' } @signals };

Answer 4

@signals = sort{ length($a) <=> length($b) } @signals;
my $sigs = { map { $_ => 'None' } @signals };
my $biggest_word_size = length($signals[-1]);

我会使用一种排序来实现这一点。