in reply to Having an Issue updating hash of hashes

   $people = { "$cntr" => { ..

[download]
That overwrites the contents of $people in each loop. Try: 
   $people -> { $cntr } = { whatever...};

[download]
Also, if $cntr is always a unique integer, an array-ref may be a better choice, to keep the information in sequence: 
   $people ->[ $cntr] = {  whatever .. };

[download]

        What is the sound of Perl? Is it not the sound of a wall that people have stopped banging their heads against?
              -Larry Wall, 1992

Replies are listed 'Best First'.
Re^2: Having an Issue updating hash of hashes
by perlguyjoe (Novice) on Jul 05, 2014 at 17:46 UTC
    Thank you. That worked. For clarity here is the final code: 
    #!/usr/bin/perl

use Data::Dumper;
use strict;
use warnings;

getPeople();

sub getPeople {
        my ( $id, $first, $last, $age );
        my $file = 'list.txt';
        my $people;
        my $cntr;
        open( LIST, "< $file" ) or die "Can't open $file : $!";
        #my @lines = split /\n/, $str;
        #foreach my $line (@lines) {
        while (my $row = <LIST> ) {
                $cntr++;
                my ($id, $first, $last, $age ) = split( /\s/, $row );
                $id = (split( /=/, $id ))[1];
                $first = (split( /=/, $first ))[1];
                $last = (split( /=/, $last ))[1];
                $age = (split( /=/, $age ))[1];
                $people -> { "$id" } = {
                                'id' => "$id",
                                'first' => "$first",
                                'last' => "$last",
                                'age' => "$age"
                                };

}
print Dumper($people);
print "The person with ID 3 is $people->{'3'}{'first'} $people->{'3'}{
+'last'}\n";
close LIST;
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom