Re: How to store the data fetched from the database in perl

[frozenwithjoy]

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use Data::Printer;

# populating your hash
my %data = map { chomp; $_ => 1 } <DATA>;
# for your example, might look something like this:
# my %data = map { $_ => 1 } $sth->fetchrow(); # do you mean fetchrow_
+array?

# two ways to check whether key exists in hash
say "ABC exists" if exists $data{'ABC'};
say "JKL exists" if $data{'JKL'} == 1;

p %data;

__DATA__
ABC
JKL
HGJ
KJI
GHJ
LKJ

Output:

{
    ABC   1,
    GHJ   1,
    HGJ   1,
    JKL   1,
    KJI   1,
    LKJ   1
}
ABC exists
JKL exists

[rajsai28]

I have used below code while fetching data from the sql but i got the output as below

$sth->execute ($lBOA_BLC_MASTER_ID) or die "Cannot execute: " . $sth->
+errstr();
%data = map { $_ => 1 } $sth->fetchrow();

Output

$VAR1 = 'ABC';
$VAR2 = 1;

thanks and regards,

[choroba]

fetchrow fetches one row at a time. If you want to fetch all the rows, use fetchall_arrayref. See DBI.

[Neighbour]

Try using my $hr_data = $dbh->selectall_hashref('SELECT DISTINCT EMP_NAME FROM EMPLOYEE', [ 'EMP_NAME' ]);
This fetches all data in one go.
You can then use say "ABC exists" if exists $hr_data->{ABC}; to check if an element is there.

[frozenwithjoy]

I haven't used this module before, so am not totally familiar with this method, but does this work?

my %data;
while ( my $result = $sth->fetchrow() ) {
    $data{$result} = 1;
}