Re: Re: OO Perl: Methods To Reference Hash

Yes. All the changes were made. I showed you only what I thought was necessary within the object. The problem is that when the object is instantiated, and the set() and get() methods are called afterwards, the hash gets corrupted somehow.

The data is set like this in the hash:


        $hshFoo{$keyNew} = $strFile;
# Ex:
#        $hshFoo{"203000"} = "203000.xml";
[download]

#######################
# here is the code...
sub get_hshAgg {
    my $self = shift;
    return %{$self->{hshAgg}};
}

sub set_hshAgg {
    my $self = shift;
    my %hshToAgg = shift;

    $self->{hshAgg} = \%hshToAgg;
}

sub run {
    my $self        = Foo->new(@_);
    my %hshToAgg      = ();

    my $class;

    (
     $class,
     %hshToAgg
    ) = @_;

    $self->set_id($intID);
    $self->set_hshAgg(%hshToAgg);

    use Data::Dumper;
    print Dumper \%hshToAgg;

    # OUTPUT: THIS WORKS! 
    #$VAR1 = {
    #          '2030000' => '2030000.XML',
    #          '2030001' => '2030001.XML',
    #          '2030002' => '2030002.XML'
    #        };

    print "After instantiation\n");
    my %hshTest = $self->get_hshAgg();
    print Dumper \%hshTest;

    # OUTPUT: THIS DOES NOT WORK! 
    #$VAR1 = {
    #          '2030000' => undef
    #        };
}
[download]

I do not understand where the data is getting lost.

-P0w3rK!d

Comment on Re: Re: OO Perl: Methods To Reference Hash Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: OO Perl: Methods To Reference Hash by Mr. Muskrat (Canon) on Jun 03, 2003 at 22:21 UTC
You are correct. Your get and set methods will not work. I should have looked closer at the code in the OP and the replies. This appears to work though. `sub get_hshAgg { my $self = shift; return $self->{hshAgg}; } sub set_hshAgg { my $self = shift; my $hshToAgg = shift; $self->{hshAgg} = $hshToAgg; } sub run { my $self = Foo->new(@_); my %hshToAgg = (); my $class; ( $class, %hshToAgg ) = @_; $self->set_id($intID); $self->set_hshAgg(\%hshToAgg); use Data::Dumper; print Dumper \%hshToAgg; print "After instantiation\n"; my %hshTest = %{$self->get_hshAgg}; print Dumper \%hshTest; }` [download]	[reply] [d/l]
Re: Re: Re: Re: OO Perl: Methods To Reference Hash by P0w3rK!d (Pilgrim) on Jun 04, 2003 at 13:07 UTC
I see the problem now. Look here: `# My Set Method sub set_hshAgg { my $self = shift; my %hshAgg = shift; <-------- use of % $self->{hshAgg} = %hshAgg; } # Your Set Method sub set_hshAgg { my $self = shift; my $hshAgg = shift; <-------- use of $ $self->{hshAgg} = %hshAgg; }` [download] Thanks for your reply :) -P0w3rK!d	[reply] [d/l]
Re: Re: Re: OO Perl: Methods To Reference Hash by P0w3rK!d (Pilgrim) on Jun 03, 2003 at 22:20 UTC
I changed the set method to this and it works now, but why? Do you have to do something special when passing in the hash to the set method? Is this the best practice? `sub set_hshAgg { my $self; my %hshToAgg; ( $self, %hshToAgg ) = @_; $self->{hshAgg} = \%hshToAgg; }` [download] Thank you :) -P0w3rK!d	[reply] [d/l]


XP is just a number
	PerlMonks