need help with Perl hashes!!!

kedarp · 03-04-2013, 06:14 AM

Hello,,

Here is a Perl program that i am stuck at. Need help with it.

I have a file file.txt with records.

Quote:

abc 23759
pqr 23597
xyz 80385

Now I have to extract the records in a hash
so that I can look up the nos. using the names.

Code:

open FILEIN,"<file.txt";

while($line=<FILEIN>){
	
   split(' ',$line);
}

I don't know how to create a hash from this code, using split.

Regards.

pan64 · 03-04-2013, 06:26 AM

just google, see example 10: http://perlmeme.org/howtos/perlfunc/split_function.html

kedarp · 03-04-2013, 07:04 AM

That is where th problem is.

When the program comes out of the while loop,
only the last record remains in the hash.

So, that gives me only the last record -

xyz 80385

in the hash.

pan64 · 03-04-2013, 07:14 AM

what is your code?

kedarp · 03-04-2013, 07:33 AM

Code:

open FILEIN,"<file.txt";

while($line=<FILEIN>){
	
   %records = split(' ',$line);
}

This is the code, but this is failing.
What I want to do is store the below records which I read from
a file in a Hash.

Quote:

abc 23759
pqr 23597
xyz 80385

Regards.

linosaurusroot · 03-04-2013, 07:35 AM

Code:

%elephant=();
open FILEIN,"<file.txt";

while($line=<FILEIN>){
   @q=split(/\s+/,$line);
   $elephant{$q[0]}=$q[1];
}

foreach (sort keys %elephant) {
    printf(""K=%s  V=%s\n", $_, $elephant{$_});
}

pan64 · 03-04-2013, 07:41 AM

that one is not failing, just you did not print out the content of your hash....

kedarp · 03-04-2013, 07:47 AM

Thanks a lot...

bigearsbilly · 03-04-2013, 09:17 AM

or

Code:

while (<>) {
   my ($k, $v) = split;
   $record{$k} = $v;
}