Mit fetchrow_hashref, um Daten zu speichern

Ich bin versucht, die Informationen aus einer MySQL-Datenbank, die ich dann Bearbeiten in perl:

use strict;
use DBI;

my $dbh_m= DBI->connect("dbi:mysql:Populationdb","root","LisaUni") 
or die("Error: $DBI::errstr");

my $Genotype = 'Genotype'.1;
#The idea here is eventually I will ask the database how many Genotypes there are, and then loop it round to complete the following for each Genotype:

my $sql =qq(SELECT TransNo, gene.Gene FROM gene JOIN genotypegene ON gene.Gene =       genotypegene.Gene WHERE Genotype like '$Genotype');
my $sth = $dbh_m-> prepare($sql);
$sth->execute;

my %hash;

my $transvalues = $sth->fetchrow_hashref;
my %hash= %$transvalues;

$sth ->finish();
$dbh_m->disconnect();       

my $key;
my $value;

while (($key, $value) = each(%hash)){
 print $key.", ".$value\n; }

Dieser code produziert keine Fehler, aber die %hash speichert nur die Letzte Zeile aus der Datenbank (ich habe die Idee, Sie zu schreiben, diese Art von diese website). Wenn ich Typ:

while(my $transvalues = $sth->fetchrow_hashref){
print "Gene: $transvalues->{Gene}\n";
print "Trans: $transvalues->{TransNo}\n";
}

Dann druckt alle Zeilen, aber ich brauche all diese Informationen werden verfügbar, sobald ich geschlossen habe, die Verbindung zur Datenbank.

Ich habe auch eine Frage: in meiner MySQL-Datenbank die Reihe besteht aus e.g 'Gene1'(Gen -) '4'(TransNo). Einmal habe ich es unternommen, diese Daten aus der Datenbank wie ich oben, wird die TransNo noch wissen, welches Gen es ist verbunden mit? Oder muss ich eine Art von hash hash-Struktur?

  • Eine Seite Hinweis auf Ihre SQL-Anweisung in Perl, können Sie die variable aus dem $sql-variable und gehören als Teil der execute-Anweisung. Versuchen Sie dies: my $sql =qq(SELECT ... WHERE Genotype like ?); my $sth = $dbh_m-> prepare($sql); $sth->execute($Genotype); Dies wird verhindern, dass gegen SQL-injection-Attacken und ist eine gute Angewohnheit, in zu erhalten.
InformationsquelleAutor Lisa | 2011-12-21
  1. 6

    Sie sind dem Aufruf der "falsch" - Funktion

    fetchrow_hashref zurück eine Zeile als hashref, sollten Sie wickeln Sie es verwenden in einer Schleife endet, wenn fetchrow_hashref gibt undef.

    Wie es scheint, Sie sind auf der Suche für fetchall_hashref, dass Ihnen alle zurückgegebenen Zeilen, wie ein hash mit dem ersten parameter angegeben, welches Feld als Schlüssel.

    $hash_ref = $sth->fetchall_hashref ($key_field);

    Jede Zeile wird eingefügt $hash_ref als interne hashref, mit $key_field als Schlüssel können Sie in der Zeile, in $hash_ref.

    Was bedeutet die Dokumentation sagen?

    Den fetchall_hashref Methode kann verwendet werden, zu Holen alle Daten werden zurückgegeben, die von einem vorbereiteten und ausgeführten Anweisung behandeln.

    Gibt es eine Referenz auf einen hash mit Schlüssel für jeden einzelnen Wert der $key_field Spalte, die abgerufen wurde.

    Für jede Taste der entsprechende Wert ist eine Referenz auf einen hash mit den ausgewählten Spalten und Ihre Werte, zurückgegeben durch fetchrow_hashref().

    Dokumentation links

    • Danke - ich habe jetzt geändert auf: my $transvalues = $sth->fetchall_hashref('Gen'); print $transvalues->{Gene1}->{TransNo} Wie würde ich diese Schleife, so druckt er alle in den Genen?
    • Von.. erstellen eine Schleife, die durchläuft die hashref, Sie ziemlich viel, die Frage beantwortet, mit der Frage. Beispiel codepad.org/31SEnbYs (auch, bitte akzeptieren Sie die Antwort auf markieren Sie die Frage als gelöst)
    InformationsquelleAutor Filip Roséen - refp
Schreibe einen Kommentar