http://qs1969.pair.com?node_id=1183671


in reply to DB search results using DBI...execute

Use Data::Dumper to show the structure

use Data::Dumper;
print '<pre>';
print Dumper \@results;
print '</pre>';

[download]

The code for search_item() looks to be more relevant to your question than sql_execute().

poj

Replies are listed 'Best First'.
Re^2: DB search results using DBI...execute
by jamroll (Beadle) on Mar 04, 2017 at 21:38 UTC
    yes! ty for that. not entirely certain how that helps...perhaps i'm misguided. i'm asking why the code gives back a 3...not if search_item() is more relevant than sql_execute(). frankly, your reply, although highly appreciated, makes little sense to me.
[reply]
      my @results = search_item($dbh, \@users, $st, $sv) . "\n"; is slightly incorrect, btw - and not sure how the "\n" got in there....it's not there in my actual code. so, it should read just: my @results = search_item($dbh, \@users, $st, $sv);
[reply]
[d/l]
[select]

        Try this simple cgi to show the benefit of using Dumper. 

        #!perl
# Dumper demo cgi
use strict;
use Data::Dumper;

print "Content-Type: text/html\n\n";
print '<pre>';

my $ref = [ { ID => 'ABC'},{ ID => 'DEF'},{ ID => 'GHI'} ];
print '<h2>$ref</h2>';
print Dumper $ref;
print '<hr/>';

my @array = map { $_->{ID} } @$ref;
print '<h2>@array</h2>';
print Dumper @array;
print '<hr/>';

my @error = @array."\n";
print '<h2>@error</h2>';
print Dumper @error;
print '<hr/>';

        [download]

        Also, note how map could be used to replace this code in search_item()

        my @array = @$resultsRef
foreach my $hit (@array) {
  # $hit is a hash reference.
  my %hash = %$hit;
  push @searched, $hash{ID};
}

        [download]
        poj
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom