Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

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

by frozenwithjoy (Priest)
on Jun 11, 2013 at 06:18 UTC ( #1038195=note: print w/replies, xml ) Need Help??

in reply to How to store the data fetched from the database in perl

#!/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


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

Replies are listed 'Best First'.
Re^2: How to store the data fetched from the database in perl
by rajsai28 (Novice) on Jun 11, 2013 at 06:38 UTC

    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();


    $VAR1 = 'ABC'; $VAR2 = 1;
    thanks and regards,
      fetchrow fetches one row at a time. If you want to fetch all the rows, use fetchall_arrayref. See DBI.
      لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
      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.

      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; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1038195]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (12)
As of 2016-10-27 14:24 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (364 votes). Check out past polls.