如何從perl子例程中傳遞參考的輸出數據

Question

如何從perl子例程獲取數據輸出..？將子程序「get_data」的散列引用傳遞給子程序......將其填充到外部。

例如：

my %myhash =(); 
get_data(\%myhash); 

Answer 1

use strict; 
use warnings; 
use Data::Dumper; 


my %myhash =(); 
get_data(\%myhash); #pass hash ref 
$myhash{k2} = "Hello SO"; #add one more key value 
print Dumper($hash_ref); #Dump hash ref 

sub get_data{ 
my $hash_ref = shift; #get hash ref 
$hash_ref->{k1} = "adding one more key value"; #fill data 
} 

輸出：

$VAR1 = { 
     'k2' => 'Hello SO', 
     'k1' => 'adding one more key calue' 
    }; 

Answer 2

你是通過引用傳遞的哈希值，在哈希的任何變化將是子程序外部可見的爲好。

您是否遇到此代碼的任何問題？