perl - 在 perl 中初始化哈希引用

Question

以下 Perl 代码打印 Value:0 .除了在散列引用传递给子例程之前向散列添加虚拟键之外，还有其他方法可以修复它吗？

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

my $Hash;

#$Hash->{Key1} = 1234;

Init($Hash);

printf("Value:%d\n",$Hash->{Key});

sub Init
{
    my ($Hash) = @_;
    $Hash->{Key}=10;
}

Answer 1

初始化一个空的哈希引用。

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

my $Hash = {};

Init($Hash);

printf("Value:%d\n",$Hash->{Key});

sub Init
{
    my ($Hash) = @_;
    $Hash->{Key}=10;
}