in reply to Re: OO Perl: Methods To Reference Hash
in thread 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

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]
      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]

In Section Seekers of Perl Wisdom