hash assignment

rohit_raghu has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I wrote a small piece of code to extract a table of values from a file into a hash but it's giving me a weird output. What am I doing wrong?

#!usr/bin/perl
use strict;

open (FILE,'<abc.txt');
my %config;

while(<FILE>)
{
    if($_=~'^(\w+_?\w+)=([01])')
    {
        $config{$1}=$2;
        print "$1:$config{$1}\n";
    }
}
close FILE;
for my $i (sort keys(%config))
{
    print "$i:$config{i}\n";
}
[download]

This is the output I get:

$ perl test002.pl
AAA:1
BBBB:0
CCC:0
DD:1
AAA:
BBBB:
CCC:
DD:
[download]

And this is the sample input file:

AAA=1;
BBBB=0;
CCC=0;
DD=1;
[download]

Rohit Raghunathan

Comment on hash assignment Select or Download Code

Replies are listed 'Best First'.
Re: hash assignment by Ratazong (Monsignor) on Jul 25, 2012 at 07:43 UTC
`print "$i:$config{i}\n";` [download] You are missing a `$` before the second `i` Rata	[reply] [d/l] [select]
Re^2: hash assignment by rohit_raghu (Acolyte) on Jul 25, 2012 at 07:46 UTC
Oops. I apologize for the waste of your time. Rohit Raghunathan	[reply]
Re^3: hash assignment by ww (Archbishop) on Jul 25, 2012 at 12:06 UTC
Not a "waste" but an opportunity to learn: `use warnings;` as well as strict; Check compilation before throwing up your hands in dismay. That is, at your command prompt, execute `perl -c filename` The two, together, will reveal problems such as this.	[reply] [d/l] [select]