以下 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;
}
最佳答案
初始化一个空的哈希引用。
#!/usr/bin/perl
use warnings;
use strict;
my $Hash = {};
Init($Hash);
printf("Value:%d\n",$Hash->{Key});
sub Init
{
my ($Hash) = @_;
$Hash->{Key}=10;
}
关于perl - 在 perl 中初始化哈希引用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18626962/