Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

(wil) Re: Passing a hash between subs

by wil (Priest)
on Jan 30, 2003 at 16:42 UTC ( #231371=note: print w/replies, xml ) Need Help??


in reply to Re: Passing a hash between subs
in thread Passing a hash between subs

That $ref is coming from data extracted from the database via:
while (my $ref = $sth->fetchrow_hashref()) { ...


- wil

Replies are listed 'Best First'.
Re: (wil) Re: Passing a hash between subs
by broquaint (Abbot) on Jan 30, 2003 at 16:54 UTC
    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?
    HTH

    _________
    broquaint

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2021-04-20 22:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?