Perl 中的哈希映射

Question

map 是否有等效的哈希值？

my %new_hash = hash_map { new_key($a) => new_val($b) } %hash;

我知道我可以循环遍历这些键。

Answer 1

List::Pairwise 声称要准确实施该语法 - 请参阅 mapp、grepp。不过我还没用过。

另外，你可以这样做，

%new_hash = map { new_key($_) => new_value($hash{$_}) } keys %hash; 

我承认如果 %hash 确实是 $deeply->{buried}->{hash} 的话看起来会更笨拙。我更喜欢使用 $temp = ...;在这种情况下，映射 {...} 键 %$temp 。

Answer 2

我真的看不出你想在这里做什么。 “map 的哈希等价物”是什么意思？您可以在哈希上使用 map 就可以了。如果你想要钥匙，只需使用keys；例如“

@msglist = map { "value of $_ is $hash{$_}" } keys %hash    

虽然通常

say "value of $_ is $hash{$_}"  keys %hash;

就可以了。

如果你想要两者，那么使用整个哈希。

对于分配，%new_hash = %old_hash有什么问题吗？

你有深复制问题吗？然后使用 < code>Storable::dclone。

您希望键和值同时在闭包中可用吗？然后与第一个映射进行一堆对：

@pairlist = map { [ $_ => $hash{$_} ] } keys %hash  

我需要查看您想要的示例。这样做，但到目前为止我可以看到使用一些大的旧模块而不是基本 Perl 的零原因。

Answer 3

您可以像这样使用地图：

my $i = 0;
my %new_hash = map { $i ^= 1 ? new_key($_) : new_val($_) } %hash;

Answer 4

您可以使用我的模块 List::Genmapn > 为此：

use List::Gen 'mapn';

my %new_hash = mapn {new_key($_[0]) => new_value($_[1])} 2 => %old_hash;

mapn 与 map 类似，只是它需要一个附加参数，即遍历列表的元素数量。在块内，@_ 数组设置为当前切片。

Answer 5

$ perl -d /dev/null

  DB<2> %p = ( a=>'b', c=> 'd');                                                
  DB<5> p Dumper \%p                                                            
$VAR1 = {
          'c' => 'd',
          'a' => 'b'
        };

例如反转键和值：

  DB<6> %q = map { ($p{$_}, $_ ) } keys %p                                      
  DB<7> p Dumper \%q                                                            
$VAR1 = {
          'b' => 'a',
          'd' => 'c'
        };

Answer 6

从 perl 5.20 开始，核心实用程序 List::Util::pairmap 正是这样做的：

use List::Util qw(pairmap);

my %new_hash = pairmap { new_key($a) => new_val($b) } %hash;

它不一定是最佳的（因为它涉及将哈希展开到列表并返回），但我相信这是 vanilla perl 中最短的方法。