我有以下代码:
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
my $site = "test.com";
my $data = {
"test" => 1
};
my $user = defined($data->{addons}->{$site}->{username}) ? $data->{addons}->{$site}->{username} : "nothing";
print Dumper($data);
结果:
$VAR1 = {
'test' => 1,
'addons' => {
'test.com' => {}
}
};
如您所见,检查用户是否在嵌套结构中定义实际上创建了一个空键。我的任务是如何在不定义键的情况下检查 hashref。