in reply to Returning hash reference from a sub

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'} || '';

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

Replies are listed 'Best First'.
Re^2: Returning hash reference from a sub
by Anonymous Monk on Mar 18, 2013 at 13:57 UTC
    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.
[reply]
      ...
%final_data = @loop_data;
...

      [download]

      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 };

      [download]
[reply]
[d/l]
[select]

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

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

        [download]
        so you will get 
        %fus:
  H -> e,
  l -> o

        [download]
        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?

[reply]
[d/l]
[select]
        Need to store the data in a hash to return from the sub, if Dumper: 
        $VAR1 = {
          'names' => 'mary',
          'names' => 'john',
          'names' => 'Doe',
          'names  => ''
};

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom