DBI::db disconnect invalidates statement handle (Datenbanken und Verzeichnisdienste)

[thread]17365[/thread]

DBI::db disconnect invalidates statement handle

Tags: perl5 DBI Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+11 replies
Gast iche

2012-04-26 16:31
Hallo!

Und noch eine Frage:

Ich finde in meinen Errorlogfiles des Webservers diesen Eintrag.

---schnipp---
DBI::db=HASH(0x200b570)->disconnect invalidates 1 active statement handle (either destroy statement handles or call finish on them before disconnecting) at ...
---schnipp---

Weil mich das in den Wahnsinn treibt, habe ich versucht herauszubekommen, woran das liegen könnte.

Ich logge sämtliche Datenbankaufrufe mit und sehe folgendes:

Öffnen des $db-Handlers:
DBI::db=HASH(0x200b4f8)

Abfrage, die über diesen Handler läuft:
DBI::db=HASH(0x200b4f8) => SELECT row FROM table

Schliessen des Handlers:
DBI::db=HASH(0x200b4f8)

Der eigentlich Code sieht so aus und liefert genau eine Zeile im Ergebnis zurück:
Code (perl): (dl )

1 2 3 4 5 6

&mysql_connect($db) my $sqlStatement = "SELECT row FROM ... "; my $dbh = $db->prepare($sqlStatement); $dbh->execute(); my $row = $dbh->fetchrow_array(); &mysql_disconnect($db)
Kommentiere ich den Codeblock aus, erscheint der kein Eintrag im Errorlogfile des Servers.

Hänge ich in obigen Code an vorletzer Stelle noch ein
Code (perl): (dl )

$dbh->finish;
rein, erscheinen auch keine Einträge im Logfile.

Deshalb gehe ich davon aus, das obiger Code den Fehler erzeugt.

Ich verstehe jetzt zwei Sachen nicht an der Sache.

1.) in der Subroutine "&mysql_disconnect" findet das hier noch statt
Code (perl): (dl )

if ($dbh) {$dbh -> finish;}
Damit sollte mein obiges "finish" eigentlich überflüssig sein

2.) ist das Verwirrendste. Im Errorlog erscheint ein anderer Hashwert. Nämlich "0x200b570" statt "0x200b4f8".
Das deutet eigentlich auf einen weiteren $db-Handler hin. Ich finde aber nichts, wo ich diesen erzeuge. Mir ist das völlig unklar.

Habt ihr einen Tipp?

Danke

modedit Editiert von GwenDragon: Titel gekürzt
Last edited: 2012-04-26 17:15:26 +0200 (CEST)
- +3 replies
- moritz
  
  2012-04-26 16:43
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  Schau dir mal die DBI-Dokumentation zu "tracing" an, und aktiviere tracing. Das hilft dir vermutlich herauszufinden, was genau passiert.
  
  Nachdem du den relevanten Code nicht mitgeliefert hast, koennen wir es nicht fuer dich herausfinden.
  Perl 6 - Perls Zukunft
  - +2 replies
  - Gast iche
    
    2012-04-26 17:02
    
    Mach ich, danke!
    Last edited: 2012-04-26 17:06:49 +0200 (CEST)
    - Gast iche
      
      2012-04-27 11:42
      
      Soooo :)
      
      Dank eingeschaltetem Tracing konnte ich jetzt etwas finden.
      
      Immer wenn ich ein SELECT-Statement aufgerufen habe und die Werte per
      
      Code (perl): (dl )
      
      my $row = $dbh->fetchrow_array();
      
      abgerufen habe, wurde das anschliessende Disconnect mit einem Eintrag im Errorlog quittiert.
      
      Das sah dann so aus:
      
      Code: (dl )
      
      1 2 3 4 5
      
      [Fri Apr 27 11:22:50 2012] [error] [client XXXXXXXX] -> disconnect [Fri Apr 27 11:22:50 2012] [error] [client XXXXXXXX] for DBD::mysql::db (DBI::db=HASH(0x2129a88) [Fri Apr 27 11:22:50 2012] [error] [client XXXXXXXX] ~0x2129a40 [Fri Apr 27 11:22:50 2012] [error] [client XXXXXXXX] ) thr#15e2010 [Fri Apr 27 11:22:50 2012] [error] [client XXXXXXXX] [Fri Apr 27 11:22:50 2012] xxxxx.pl: DBI::db=HASH(0x2129a40)->disconnect invalidates 1 active statement handle (either destroy statement handles or call finish on them before disconnecting) at ...
      
      Warum das nur bei einem "fetchrow_array()" auftritt, keine Ahnung. Ich schließe das $dbh jetzt immer mit einem "finish" und werde das mal beobachten. Warum die Hashs für $db verschieden sind, weiß ich nicht. Kann das damit zusammenhängen, dass das per Subroutine aufgerufen wird und die $db-Variable deshalb mit einem unterschiedlichen Hashwert refernziert wird?
      
      Ich bedanke mich noch mal bei euch, werde das aber wirklich wohl alles mal überarbeiten müssen!
      Last edited: 2012-04-27 11:47:33 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2012-04-26 16:50
  User since
  2005-01-17
  14758 Artikel
  Admin1
  Wie sollen wir analysieren was
  
  Code: (dl )
  
  &mysql_connect($db)
  
  bzw.
  
  Code: (dl )
  
  &mysql_disconnect($db)
  
  macht, wenn du das geheim hältst!
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast iche
    
    2012-04-26 17:02
    Oh, war kein böser Wille :)
    
    Code (perl): (dl )
    
    1 2 3 4
    
    sub mysql_connect { %attr = (); my $db = DBI -> connect("DBI:mysql:mysql_compression=1:$databasename:$dbserver:$dbport", "$dbusername", "$dbpassword", \%attr); return $db;
    
    Code (perl): (dl )
    
    1 2 3 4
    
    sub mysql_disconnect { if ($dbh) {$dbh -> finish;} defined $_[0] and ($_[0]->disconnect or die "Keine Verbindung zur MySQL-Datenbank möglich - Grund: $DBI::errstr" and undef $_[0]); }
    
    Danke!
    Last edited: 2012-04-26 17:06:59 +0200 (CEST)
- +2 replies
- rosti
  
  2012-04-26 18:13
  
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  
  Quote
  Ich logge sämtliche Datenbankaufrufe mit
  
  Frage: Wie, was hast Du denn da eingeschaltet?
  
  (zwecks Nachvollziehbarkeit)
  - Gast iche
    
    2012-04-27 10:44
    
    Immer wenn "mysql_connect"-Subroutine aufgerufen wird, schreibe ich den $db-Hash in eine Textdatei.
    
    Der $db-Hash, der im Errorlog auftaucht, erscheint nie in der Textdatei :(
    
    Irgendwo ist da wohl der Wurm bei mir drin.
    Last edited: 2012-04-27 10:49:57 +0200 (CEST)
- GwenDragon
  
  2012-04-26 18:53
  User since
  2005-01-17
  14758 Artikel
  Admin1
  Code (perl): (dl )
  
  &mysql_connect($db)
  
  $db wird beim connect nicht gesetzt. Auch wenn du das glaubst, dass sowas automagisch passiert.
  
  Mit
  
  Code (perl): (dl )
  
  1 2 3 4
  
  sub mysql_connect { %attr = (); my $db = DBI -> connect("DBI:mysql:mysql_compression=1:$databasename:$dbserver:$dbport", "$dbusername", "$dbpassword", \%attr); return $db;
  
  (ich nehme mal an du vergaßest ein }) erstellst du zwar ein Datenbankhandle nach einem connect an die DB, setzt es aber nirgendwo im Hauptprogramm, weil es nicht außerhalb zugewiesen wird.
  
  Und du hast ganz lustige Variablenbezeichner.
  $dbh = Statementhandle (wo ich eher $sth als Name erwartet hätte)
  $db = Databasehandle (wo ich eher $dbh erwartet hätte)
  
  Um später mal schneller zu erkennen was was macht, würde ich das so schreiben:
  $database_handle
  $statement_handle
  Aber das bleibt dir überlassen wie lesbar du programmierst. ;)
  Last edited: 2012-04-26 18:55:10 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- pq
  
  2012-04-27 10:36
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  ich würde das ganze mal komplett überarbeiten, das sieht mir ziemlich chaotisch aus, wie auch schon erwähnt wurde. benennung sollte immer sein: $dbh = datenbankhandle, $sth = statementhandle. du kannst theoretisch auch andere namen verwenden, aber ein statementhandle $dbh zu nennen, ist dann schon eher vorsätzlich verwirrend.
  
  du übergibst den subroutinen variablen, aber das ist teilweise eher dekoration. stattdessen benutzt du in den subs dann globale variablen. sowas will man nicht und bringt einen nur ärger ein, glaub mir.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Gast iche
    
    2012-04-27 10:45
    
    Ja ok, ich werd mir mal am WE Gedanken machen, wie ich das überarbeitet bekomme.
    
    Aber nur, wenn die Sonne nicht scheint :)
    
    Vielen Dank an euch alle!!!
    Last edited: 2012-04-27 10:50:01 +0200 (CEST)

View all threads created 2012-04-26 16:31.