string - 在 perl 中获取字符串的 hahes 键

Question

我不明白为什么 $test 是 '1' 而不是 'foo'。有什么方法可以将 'foo'(以 %hash 写成)写入 $test 吗？

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

my %hash;
$hash{'test'} = {'foo' => 1};

print keys %{$hash{'test'}}; #foo
print "\n";
print values %{$hash{'test'}}; #1
print "\n";
print %{$hash{'test'}}; #foo1
print "\n";

# here is the part I do not understand
my $test = keys %{$hash{'test'}};
print "$test\n"; #1 but why? I was expecting #foo

如何在 $test 中推送“foo”？

Answer 1

keys() 返回一个列表。但是您对标量的分配 (my $test = keys ...) 会将其置于标量上下文中。因此，它被评估为列表的长度，在您的情况下为 1。