a general question on references...

[derek3000]

Fellow monks,
I was just wondering what was going on behind the scenes in a particular situation. This might be a silly question, but if I have:

use strict;

my $file = 'aFile';
my $hash_ref = get_hash($file);

#blah blah blah

sub get_hash{
        my $file = shift;
        my %hash;
        #do something to populate a hash
        return \%hash;
}

if %hash is scoped in that block, doesn't it die after it leaves the block? If that's true, wouldn't $hash_ref point to nothing? Just kind of curious.

Thanks,
Derek

[TheoPetersen]

A lexical variable dies when its reference count goes to zero. Since you return a reference to %hash, it lives on :)

[lhoward]

Perl is smart enough to know that something is still referencing %hash and doesn't clean it up when leaving get_hash.

[Ovid]

Variables like %hash don't contain the data they represent. They point to it. So you are correct that %hash goes out of scope at the end of the sub, but the data that it points to is still there (in this example). Here's a simplified explanation as to why:

Every time something references data contained in a variable, the reference count for the data is increased by one (it should be noted that the hash and the data that it contains maintain separate reference counts, so a hash could go out of scope but some of the data still remain). When the hash is created, it is assigned a reference count of one. When you return the reference to the hash and assign it to $hash_ref, its reference count increases by one, to two. When %hash goes out of scope, the reference count is decreased by one, to one. Since it still has a reference count of one, the data is still there.

Only when $hash_ref goes out of scope (in the example above), will the reference count for the original hash drop to zero, leading Perl to remove all references to it (the data is not actually deleted, as this justs wastes time. It's merely inaccessible).

Cheers,
Ovid

Vote for paco!

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.