perl - 默认丢失哈希值

Question

我在 Perl 中创建了一个哈希 my %hash = (2 => 'dog', 1 => 'cat');
当我打印 $hash{3}它错误( use of uninitialzed value in print )这是预期的。但是如果不是在哈希中，有没有办法默认一个值？

Answer 1

my $value = exists($hash{$k}) ? $hash{$k} : 'default';

要实际更改哈希，请使用

$hash{$k} = 'default' if !exists($hash{k});

如 $hash{$k}如果存在，则始终定义，您也可以使用

my $value = defined($hash{$k}) ? $hash{$k} : 'default';

可以减少到

my $value = $hash{$k} // 'default';   # 5.10+

要实际更改哈希，请使用

$hash{$k} = 'default' if !defined($hash{k});

或者

$hash{$k} //= 'default';   # 5.10+

如 $hash{$k}如果存在，则始终为真，您也可以使用

my $value = $hash{$k} ? $hash{$k} : 'default';

可以减少到

my $value = $hash{$k} || 'default';

要实际更改哈希，请使用

$hash{$k} = 'default' if !$hash{k};

或者

$hash{$k} ||= 'default';