如何从Perl中的现有哈希创建匿名哈希？

要从Perl中的现有哈希创建匿名哈希，您可以使用map函数。以下是一个示例：

#!/usr/bin/perl
use strict;
use warnings;

my %existing_hash = (
    key1 => 'value1',
    key2 => 'value2',
    key3 => 'value3',
);

my $anon_hash = { map { $_ => $existing_hash{$_} } keys %existing_hash };

print "Anonymous hash: ", join(", ", map { "$_ => $anon_hash->{$_}" } keys %$anon_hash), "\n";

在这个示例中，我们首先创建了一个名为%existing_hash的现有哈希。然后，我们使用map函数将现有哈希的键和值映射到一个新的匿名哈希$anon_hash中。最后，我们打印出匿名哈希的内容。

这种方法允许您将现有哈希的内容复制到新的匿名哈希中，而无需手动遍历现有哈希并将每个键值对添加到新哈希中。