在perl中初始化哈希引用

发布时间：2020-12-16 06:17:49 所属栏目：大数据来源：网络整理

导读：以下Perl代码打印值：0.有没有办法解决它,除了在哈希引用传递给子例程之前向哈希添加一个虚拟键？ #!/usr/bin/perl use warnings;use strict;my $Hash;#$Hash-{Key1} = 1234;Init($Hash);printf("Value:%dn",$Hash-{Key});sub Init{ my ($Hash) = @_; $Hash

以下Perl代码打印值：0.有没有办法解决它,除了在哈希引用传递给子例程之前向哈希添加一个虚拟键？

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

my $Hash;

#$Hash->{Key1} = 1234;

Init($Hash);

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

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

解决方法

初始化空哈希引用.

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

my $Hash = {};

Init($Hash);

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!