Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: Passing a hash between subs

by broquaint (Abbot)
on Jan 30, 2003 at 16:24 UTC ( #231365=note: print w/replies, xml ) Need Help??

in reply to Passing a hash between subs

Maybe it's just because you're copied and pasted the code but here ...
my $location_text = $locations{$ref->{'location'}};
... where's the $ref hash ref coming from? And if it is there somewhere surely you want $ref->{id}?


Replies are listed 'Best First'.
(wil) Re: Passing a hash between subs
by wil (Priest) on Jan 30, 2003 at 16:42 UTC
    That $ref is coming from data extracted from the database via:
    while (my $ref = $sth->fetchrow_hashref()) { ...

    - wil
      Aha! The problem there is that the $ref lives within the lexical scope of the while loop in the bar() sub. So once the while loop exits, $ref is no longer in scope. Even if it were declared about the while loop it would fall out of scope when bar() exits. What you probably intended was something like this
      sub foo { ... ## get $ref back from bar() my($ref, %locations) = &bar($dbh); ... my $location_text = $locations{$ref->{'location'}}; } sub bar { ... my $ref; while ($ref = $sth->fetchrow_hashref()) { my $id = $ref->{'id'}; my $location = $ref->{'location'}; $locations{$id} = $location; } $sth->finish; ## return $ref back to caller return $ref, %locations; }
      However now $ref only contains the hash ref from the last iteration of the while loop, or is that the desired result?


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://231365]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (7)
As of 2021-05-12 07:04 GMT
Find Nodes?
    Voting Booth?
    Perl 7 will be out ...

    Results (125 votes). Check out past polls.