Re: Alias $hashref referent to a hash

[kvale]

Lexical aliases seem to work fine:

my %hash = (1 => 2, 3 => 4);
my $ref = \%hash;
my $alias = $ref;
print "hash = ", %hash, "\n";
print "ref hash = ", %$ref, "\n";
print "alias hash = ", %$alias, "\n";

prints

hash = 1234
ref hash = 1234
alias hash = 1234

What is the code you are having trouble with?

[hlen]

Nah, that's still a reference. I want a %hash to be an alias to the referent, not a $scalar to keep the same reference.

Thanks

[JediWizard]

So you want to be able to do something like this:

my $ref = {thing => 'value', otherthing => 'other'};
%alias_to_ref = ;# insert magical code here
                 # to create a hash which will
                 # still modify $ref

$alias_to_ref{thing} = 'newvalue';

print $ref->{thing};

And have that output 'newvalue'? If that is what you want, you probably could do it with a tied hash. See Below:

#!/usr/local/bin/perl -w
use strict;

my($ash) = {thing => 'other', and => 'antoher'};

my(%hash);

tie %hash, 'MyHash', $ash;

$hash{thing} = 'new';

print $ash->{thing}."\n";

package MyHash;
require Tie::Hash;
@MyHash::ISA = qw(Tie::StdHash);

sub STORE
{
    my $me = shift;
    my $key = shift;
    $me->{$key} = shift;
}

sub TIEHASH
{
    my $package = shift;
    my $ref = shift;
    return bless($ref, $package);
}

This outputs 'new'.