perl修改子文件中的散列

Question

我無法理解引用如何在子文件中使用散列。

在這段代碼中，我試圖改變%config的handleOptions()子程序內：

sub handleOption; 

my %config = ( gpg => "", 
       output => "", 
       pass => "", 
       host => "", 
       type => ""); 

handleOptions(\%config); 
print "\n"; 
print Dumper \%config; 

sub handleOptions 
{ 
    my ($gpgpath,$type,$pass,$host); 
    my $pConfig=@_; 

    GetOptions ("gpg=s" => \$gpgpath, 
       "type=s" => \$type, 
       "host=s" => \$type, 
       "pass=s"=>\$pass); 
    $pConfig->{'gpg'} = $gpgpath; 
    $pConfig->{'type'} = $type; 
    $pConfig->{'pass'} = $pass; 
    $pConfig->{'host'} = $host; 
    print Dumper %$pConfig; 
} 

下面是輸出的時候，我給--gpg='/home/daryl/gpg/pass.gpg的選項CLI：

$VAR1 = 'pass'; 
$VAR2 = undef; 
$VAR3 = 'gpg'; 
$VAR4 = '/home/daryl/gpg/pass.gpg'; 
$VAR5 = 'type'; 
$VAR6 = undef; 
$VAR7 = 'host'; 
$VAR8 = undef; 

$VAR1 = { 
      'pass' => '', 
      'gpg' => '', 
      'type' => '', 
      'output' => '', 
      'host' => '' 
     }; 

我應該如何着手？

Answer 1

如果您是use strict和use warnings，您會看到有關使用標量作爲散列引用的錯誤消息。這將提示你的問題是在這條線：

my $pConfig=@_; 

你分配陣列@_的標量環境變量$pConfig。這意味着$pConfig正在存儲數組@_中的元素數量。

相反，你可以這樣做：

my ($pConfig) = @_;爲KerrekSB建議，或：

my $pConfig = shift;（其中shift從@_ S也可以自動）

看看perldoc perldata的更多信息，調用非標量環境中的標量。另外，除非你正在編寫一行或一個簡短的廢棄腳本，請務必始終使用use strict和use warnings。