Как получить выходные данные из подпрограммы Perl, передавая ссылку

Question

Как получить вывод данных из подпрограммы perl ..?Передайте ссылку на хэш в подпрограмму "get_data" ... заполните данные внутри подпрограммы ... и они должны отразиться снаружи.

ex:

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

Вы передаете хеш по ссылке, любые изменения в хеше будут видны и за пределами подпрограммы.

Сталкивались ли вы с этим кодом?