What part do you need help with? I mean have you already worked out how to connect to the database, how to prepare and execute the statement? I get that you need help assigning to the hash, but where are we starting from? It would help us to help you if we could see 20 lines of complete, executable code that demonstrate to us exactly where you're struggling.

The starting point of your research with perl and database access is DBI.

rkrish:

If you're using DBI then it's pretty easy: the fetchrow_hashref will give you an anonymous hash of the column names with the data for a row. There's another method that can give you the entire resultset in a hash, but you have to make sure you give it a unique key or you may lose data.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

assuming you know to use DBI module, appending a sample example to do your work

my %has;

my $query  ="select * from table name ";

my $exe = $dbh->prepare($query);

$exe->execute();

while(my $data = $exe->fetchrow_hashref){

$has{$data->{firstattribute}}=$data->{secondattribute};
}
[download]

Hi, I have tried this but unable to see any data stored in hash. The query is valid and it is fetching the data.I have verified it.

sub loadSeqNbr
{
    my %SeqRec;
    my $SeqRecord = $lda->prepare("select seq_nbr,data_record from usa
+ge_inq" );
    $SeqRecord->execute()

    while ( my $data = $SeqRecord->fetchrow_hashref()) 
    {
        $SeqRec{$data->{seq_nbr}}=$data->{data_record};
    }

    print ("content of hash is %SeqRec \n");

}

[download]

output is:

content of hash is %SeqRec
[download]

Hashes don't interpolate in strings:

#!perl -w
use strict;

my %SeqRec;
print ("content of hash is %SeqRec\n");
[download]

I recommend to use Data::Dumper for debugging contents of variables:

use Data::Dumper;
my %SeqRec = (foo => 'bar');

print ("content of hash is " . Dumper \%SeqRec);
[download]

rkrish:

A couple things:

• Have you put a print statement inside your while loop to verify that results are coming back?
• Have you tried using Data::Dumper to print the contents of $data in the loop?
• Some databases will return the column names in upper case (I'm looking at you Oracle!).

(Printing the contents of $data when read will show you if it's a case problem or not.)

...roboticus

When your only tool is a hammer, all problems look like your thumb.