如何从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

你是通过引用传递的哈希值，在哈希的任何变化将是子程序外部可见的为好。

您是否遇到此代码的任何问题？