file to hash script

[st12iker]

Hey!
I need to take an input file which has two columns of data
The rows of the first column either contains a number or word
The second column contains a single number
I need to take the file and make it into a hash with the first column as the keys and the second column as the values of the hash
so the input file would look like the following:

ADFSA 5.0908
923894 6.0098

So "5.09.. and 6.00 ..." as values for "ADFSA" and "923984" as keys
Im confused as to how to go about defining the hash.
so I was thinking something like this:

open(IN,$file) or die $!;
while (<IN>)
{ split (' ', $_, 2) }

%hash = $_

????
Suggestions would be greately appreciated. Hopefully their is a way of doing this w/o using modules?

[miller]

my %hash = ();
open(IN, $file) or die "Can't open $file: $!";
while (<IN>) {
    my ($key, $val) = split ' ', $_, 2;
    $hash{$key} = $val;
}
 

- Miller

[KevinADC]

Generally you also want to chomp() the input to get rid of the record seperator:

my %hash = ();
open(IN, $file) or die "Can't open $file: $!";
while (<IN>) {
          chomp;
          my ($key, $val) = split ' ', $_, 2;
          $hash{$key} = $val;
}

[st12iker]

So know if I wanted to sort the newly created hash in descending order (highest to lowest value) based upon the values and create a new file that would contain the sorted hash, would the following be appropriate?:

open (out, "> newfile_w/_sortedhash") or die $!
foreach $key (sort { $hash{$a} <=> $hash{$b} } keys %hash) {
    print OUT ??
}
close (OUT);
 

[KevinADC]

very close:

open (out, "> newfile_w/_sortedhash") or die $!
foreach $key (sort { $hash{$a} <=> $hash{$b} }
keys %hash)
{
print OUT "$key = $hash{$key}\n";
}
close (OUT);

or instead of the key and value ("$key = $hash{$key}\n") to just print the value:

print OUT "$hash{$key}\n";

or just the key:

print OUT "$key\n";

[st12iker]

would explain exactly why the statement after Print OUT is required (what it means how it works etc.) Im new to perl so any explnanation would enhance my learning experience.