Question

sub function{
my $storedata=shift;
my $storenameandaddress=$storedata->{$storeid}->{name}
."_".$storedata->{$storeid}->{location}->{address}
."_".$storedata->{$storeid}->{location}->{city}
."_".$storedata->{$storeid}->{location}->{state}
."_".$storedata->{$storeid}->{location}{country};}

我的代码在上面显示。它给了我错误信息:

Using a hash as a reference is deprecated at main.pl line 141.

然而, 函数仍然是可运行的。所有的休息都似乎都很好。这个错误在说什么? 我该如何修正它? 谢谢。

Answer 1

您张贴的代码没有发出警告。格式代码

%foo->{bar}

发出警告。它发出警告,因为它的功能是

$foo->{bar}

即使它不应该。

$ perl -wE my %h = ( foo => 123 ); say %h->{foo}; 
Using a hash as a reference is deprecated at -e line 1.
123

$ perl -Mdiagnostics -wE my %h = ( foo => 123 ); say %h->{foo}; 
Using a hash as a reference is deprecated at -e line 1 (#1)
    (D deprecated) You tried to use a hash as a reference, as in
    %foo->{"bar"} or %$ref->{"hello"}.  Versions of perl <= 5.6.1
    used to allow this syntax, but shouldn t have. It is now deprecated, and will
    be removed in a future version.

123

$ perl -wE my %h = ( foo => 123 ); say $h->{foo}; 
123

友情链接