DBI: 2 x connect ohne disconnect (Datenbanken und Verzeichnisdienste)

[thread]21440[/thread]

DBI: 2 x connect ohne disconnect

Tags: perl5 Ähnliche Threads

Leser: 8

Articles: hide open all | hide show old branches

+8 replies
Kuerbis

2023-01-10 10:17
User since
2011-03-20
947 Artikel
BenutzerIn
Hallo, wenn ich das mache
Code: (dl )

1 2

my $dbh = DBI->connect( $dsn, $user, $pass ); $dbh = DBI->connect( $dsn, $user, $pass );
habe ich dann zwei Verbindungen zur Datenbank, eine Geisterverbindung und eine normale?

Wenn ich das so schreibe
Code: (dl )

1 2 3 4 5 6 7 8 9

say "==="; { my $dbh = DBI->connect( $dsn, $user, $pass ); } say "==="; { my $dbh = DBI->connect( $dsn, $user, $pass ); } say "===";
dann habe ich einen Lag zwischen den connect, vermutlich von einem impliziten disconnect der DESTROY Methode.

Hier
Code: (dl )

1 2 3 4 5

say "==="; my $dbh = DBI->connect( $dsn, $user, $pass ); say "==="; $dbh = DBI->connect( $dsn, $user, $pass ); say "===";
habe ich keinen (disconnect)Lag. Darum meine Frage wegen den zwei Verbindungen.
- Linuxer
  
  2023-01-10 11:52
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Meiner Meinung nach sollte Perl die alte Verbindung wegräumen, wenn es wirklich keinen Bezug mehr dazu gibt.
  
  $dbh wird mit einem neuen Objekt befüllt, damit sollte das alte Objekt obsolet werden und aufgeräumt werden.
  Dabei sollte auch die vorige Verbindung zur DB wegfallen.
  
  Um es sauber zu halten, würde ich aber definitiv ein explizites disconnect() machen, bevor ich die Variable $dbh mit einer anderen Verbindung überschreiben würde.
  
  Und dann mal nachgelesen: Der Absatz zu disconnect in der perldoc DBI ist hier sehr lesens- und beachtenswert! https://metacpan.org/pod/DBI#disconnect
  
  Wenn die DB via Netzwerk (entweder entfernter Rechner oder eigener Rechner (e.g. localhost) erreicht wird, könnte man mit Bordmittel nachschauen, welche Verbindungen zur DB offen sind.
  
  Alternativ könnte auch die DB selber Möglichkeiten bieten, sich anzeigen zu lassen, wieviele offene Verbindungen zur DB es aktuell gibt.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- rosti
  
  2023-01-10 17:22
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  Du kannst das prüfen. Erstelle eine Tabelle
  
  Code: (dl )
  
  1 2 3 4
  
  CREATE TABLE `verbindungstest` ( `id` int(11) NOT NULL AUTO_INCREMENT, PRIMARY KEY (`id`) )
  
  dann erstelle ein DBH, mach ein INSERT und frage LAST_INSERT_ID() ab. Dann erstelle eine neue Verbindung (Fall 1) oder verbinde neu (Fall 2) und befrage erneut die LAST_INSERT_ID() ohne ein weiteres INSERT.
  
  Bei mir kommt in beiden Fällen dasselbe Ergebnis. Ergo gibt es nur eine Verbindung.
  
  perl 5, version 22, subversion 1 (v5.22.1) built for MSWin32-x64-multi-thread
  
  Und
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8
  
  { 'Value' => '600', 'Variable_name' => 'max_connections' }, { 'Value' => '35', 'Variable_name' => 'max_user_connections' },
  
  Last edited: 2023-01-10 19:06:38 +0100 (CET)
  - rosti
    
    2023-01-10 21:48
    User since
    2011-03-19
    3472 Artikel
    BenutzerIn
    
    Code (perl): (dl )
    
    1 2
    
    connect() connect_cached()
    
    macht den Unterschied!
- +2 replies
- Kuerbis
  
  2023-01-11 16:19
  
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  
  Danke für die Beiträge.
  Ich habe es auch hier gefragt.
  - rosti
    
    2023-01-11 16:52
    
    User since
    2011-03-19
    3472 Artikel
    BenutzerIn
    
    Wie bereits festgestellt: connect() erstellt stets eine neue Verbindung. Wenn Du die auf dieselbe Variable legst (unschön) wird die vorherige Verbindung verworfen.
    
    Wenn Du jedoch mehrere Verbindungen brauchst (aus welchem Grund auch immer) dann lege die auf mehrere namentlich verschiedene Variablen.
    
    MFG und danke auch für Deine Rückmeldung--
    
    PS/Edit: Wenn Du jedoch eine Verbindung mit connect_cached() erstellt hast, dann verbleibst Du mit einem erneuten Aufruf connect_cached() in derselben bereits bestehenden Sitzung/Verbindung.
    Last edited: 2023-01-12 10:30:48 +0100 (CET)
- rosti
  
  2023-01-15 08:12
  
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  
  Du könntest auch sub DBI::db::DESTROY{ print "DBH DESTROY\n" } überschreiben dann siehst Du wann das aufgerufen wird. Schönen Sonntag
- GwenDragon
  
  2023-01-17 14:52
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Auch der END-Block des Treibers + DBI räumt am Schluss noch auf.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2023-01-10 10:17.