什麼是訪問的散列變量在Perl

Question

根據我的基本理解如下，我們可以訪問散列值的不同方法：

$hash_name{key1}{key2};  #In case of an nested hash 
$hash_reference->{key1}{key2} #if we have the reference to the hash instead of the hash we can access as 

如下但是在一個存檔的代碼中，我所看到的：

$sc1 = %par->{'a'}{'b'}; 
@a1 = %par->{'a'}{'c'}; 
%c3 = %par->{'a'}{'d'}; 

這實際上是什麼意思？有人能幫助我嗎？

Answer 1

您發佈的所有三種變體都會在use strict之下產生語法錯誤，並且在Perls 5.22之前的Perl上會出現use warnings的額外警告。我在這裏展示的輸出來自Perl 5.20.1。

use strict; 
use warnings; 

my $par = { a => { b => 1, c => 2, d => 3 } }; 

my $sc1 = %par->{'a'}{'b'}; 
my @a1 = %par->{'a'}{'c'}; 
my %c3 = %par->{'a'}{'d'}; 

__END__ 
Using a hash as a reference is deprecated at /home/foo/code/scratch.pl line 700. 
Using a hash as a reference is deprecated at /home/foo/code/scratch.pl line 701. 
Using a hash as a reference is deprecated at /home/foo/code/scratch.pl line 702. 
Global symbol "%par" requires explicit package name at /home/foo/code/scratch.pl line 700. 
Global symbol "%par" requires explicit package name at /home/foo/code/scratch.pl line 701. 
Global symbol "%par" requires explicit package name at /home/foo/code/scratch.pl line 702. 
Execution of /home/foo/code/scratch.pl aborted due to compilation errors. 

沒有strict和warnings，它會編譯，但產生的廢話。

no strict; 
no warnings; 
use Data::Printer; 

my $par = { a => { b => 1, c => 2, d => 3 } }; 

my $sc1 = %par->{'a'}{'b'}; 
my @a1 = %par->{'a'}{'c'}; 
my %c3 = %par->{'a'}{'d'}; 

p $sc1; 
p @a1; 
p %c3; 

__END__ 

undef 
[ 
    [0] undef 
] 
{ 
    '' undef 
} 

這就是說，永遠爲你的Perl程序use strict和use warnings，聽它表明你的警告。

Answer 2

這起源與早期的perl版本的問題，即像一個表達

%par->{'a'} 

會默默地解釋爲

(\%par)->{'a'} 

我不清楚這是否是一個錯誤，或者如果它是有意的行爲。無論哪種方式，它被宣佈是不受歡迎的，並且首先被記錄爲不推薦使用，然後更改爲引起棄用警告，並且最終在Perl v5.22中它會導致致命錯誤，因此您的代碼將不再編譯任何更長的代碼

不能使用哈希作爲參考

這些要麼應該適當地寫成只是

$par{'a'} 

的perldelta document for version 22 of Perl 5有這個

使用散列或數組作爲參考現在是致命錯誤

例如，現在%foo->{"bar"}導致致命編譯錯誤。自v5.8之前，這些已被棄用，並從那時起提出棄用警告。

一般來說，你引用的三條線應該由$par

$sc1 = $par{'a'}{'b'}; 
@a1 = $par{'a'}{'c'}; 
%c3 = $par{'a'}{'d'}; 

更換%par->但是第二個會設置@a1有一個單一的元素，也許可以更好地被寫爲@a1 = ($par{'a'}{'c'})被固定強調這是一個列表分配，第三個是將單個標量分配給散列，這將導致警告

奇數在散列分配

元件所以語義是錯誤的，以及語法