Re: Returning hash reference from a sub

[tobias_hofer]

Hi,

I am usually directly using references to anonymous hashes, like this:

    while ( my $row = $data_handle->fetchrow_hashref ){
      my $row_data = {};  # get a fresh hash for the row data
      # fill in this row
      $row_data->{names} = $row->{'names'} || '';

And at the end I simply do return $row_data this is working fine for me.
Cheers
Tobias

[Anonymous Monk]

Yes, but I am still stuck with only one row of data, I need to get all the data from the while loop and return it from the sub.

[Corion]

...
%final_data = @loop_data;
...

What is this line supposed to do?

Please also explain how you intend to use the data stored in %final_data.

Maybe you wanted to use the following construct instead?

return { names => \@loop_data };

[tobias_hofer]

The line %final_data = @loop_data will take the array and map the elements:

my @a = ('H','e','l','o');
my %fus = @a;

so you will get

%fus:
  H -> e,
  l -> o

In case you assign an odd list to %final_data the code will break!
What about crating and array of hashes? and return the reference to the array?

[Anonymous Monk]

Need to store the data in a hash to return from the sub, if Dumper:

$VAR1 = {
          'names' => 'mary',
          'names' => 'john',
          'names' => 'Doe',
          'names  => ''
};