fetchrow_hashref Problem in Perl

Question

Ich bin nicht in der Lage, die Ausgabe richtig mit dem folgenden Code abrufen. Bitte hilf mir, es zu klären.

Ich bekomme anders ausgegeben, um in MySQL und Perl zu laufen.

Ab sofort gibt es undef zurück, wenn ich Dumper benutze. Aber ich möchte, dass es null anzeigt.

$reactivate_sth = $dbh->prepare(" 
     SELECT 
     a, 
     b 
     FROM 
     table 
     WHERE 
     c = ? 
     AND 
     d = ? 
     ORDER BY 
     date DESC 
    "); 
$reactivate_sth->execute($c, $d); 
print $result = $reactivate_sth->fetchrow_hashref(); 

OUTPUT:

MySQL:

Empty set (0.00 sec) 

Perl:

HASH(0x3068198) 

Data :: Dumper

VAR1 = undef 

Answer 1

Endlich fand ich die Lösung für dieses Problem. Ich bin mir nicht sicher, ob das eine richtige Lösung ist oder nicht.

Bitte führen Sie mich, wenn die Reparatur nicht professionell ist.

if (!defined $result->{''}) { 
    $result = ''; 
} 

Answer 2

Sie müssen Ihren Code lesbarer machen. Es ist oft nützlich, eine heredoc zu verwenden SQL-Anweisungen zu zitieren, wie dies

my $reactivate_sth = $dbh->prepare(<<END_SQL); 
SELECT a, b 
FROM table 
WHERE c = ? AND d = ? 
ORDER BY date DESC 
END_SQL 

$reactivate_sth->execute($c, $d); 

my $result = $reactivate_sth->fetchrow_hashref; 

Jetzt $result ist eine Referenz auf einen Hash, weil Sie die fetchrow_hashref Methode aufgerufen. Drucken wird, wie Sie gefunden haben, etwas wie HASH(0x1cc5a8) produzieren. Sie müssen auf die Elemente des Hashs zugreifen, um Sinn des Ergebnisses zu machen

Danach weiß ich nicht, welche Ausgabe Sie wollen. Sie können den Kern Data::Dumper Modul verwenden den Datensatz anzuzeigen, die Sie dieses

abgerufen haben

use Data::Dumper; 
print Dumper $result; 

diese Hilfe tut? Sie haben nichts mehr verlangt