Hello Monks, thank you in advance for your insight into my problem. I am trying to make a simple script that reads in a list of users data and populates a hash for each row, inside a main hash. So working with Hash of Hashes. I have it printing but its only printing the last row. Seems I am overwriting my hash, instead of adding a new hash. Can you please show me what I am doing wrong? The list format is like this:

ID=1 First=John Last=Doe AGE=42
ID=2 First=Jane Last=Doe AGE=35
ID=3 First=Jack Last=Doe AGE=17
ID=4 First=Jill Last=Doe AGE=15
[download]

Here is the script:

#!/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 = { "$cntr" => {
                                'id' => "$id",
                                'first' => "$first",
                                'last' => "$last",
                                'age' => "$age"
                                }
                };

}
print Dumper $people;
close LIST;
}
[download]

Here is what I am getting as output:

$VAR1 = {
          '4' => {
                   'first' => 'Jill',
                   'last' => 'Doe',
                   'id' => '4',
                   'age' => '15'
                 }
        };
[download]

I would expect to get something like this:

$VAR1 = {
          '4' => {
                   'first' => 'Jill',
                   'last' => 'Doe',
                   'id' => '4',
                   'age' => '15'
                 }
          '3' => {
                   'first' => 'Jack',
                   'last' => 'Doe',
                   'id' => '3',
                   'age' => '17'
                 }
         '2' => {
                   'first' => 'Jane',
                   'last' => 'Doe',
                   'id' => '2',
                   'age' => '35'
                 }
         '1' => {
                   'first' => 'John',
                   'last' => 'Doe',
                   'id' => '1',
                   'age' => '42'
                 }
        };
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.