Perl Connection Pooling

Question

Al momento disponiamo di un'ampia applicazione perl che utilizza DBI raw per connettersi a MySQL ed eseguire istruzioni SQL. Crea una connessione ogni volta e termina. Stavano iniziando ad avvicinarsi al limite di connessione di mysql (200 alla volta)

Sembra che DBIx::Connection supporti il ​​pool di connessioni del livello applicazione.

Qualcuno ha avuto esperienza con DBIx::Connection?. Ci sono altre considerazioni per il pooling delle connessioni?

Vedo anche mod_dbd che è un mod di Apache che sembra gestire il pool di connessioni. http://httpd.apache.org/docs/2.1/mod/mod_dbd.html

Answer 1

non ho alcuna esperienza con DBIx :: Connection, ma io uso DBIx::Connector (essenzialmente ciò che DBIx :: Class utilizza internamente, ma inline) ed è meraviglioso ...

ho Pool queste connessioni con un wrapper oggetto Moose che le mani di nuovo istanze di oggetti esistenti, se i parametri di connessione sono identici (questo dovrebbe funzionare lo stesso per qualsiasi oggetto DB sottostante):

package MyApp::Factory::DatabaseConnection; 
use strict; 
use warnings; 

use Moose; 

# table of database name -> connection objects 
has connection_pool => (
    is => 'ro', isa => 'HashRef[DBIx::Connector]', 
    traits => ['Hash'], 
    handles => { 
     has_pooled_connection => 'exists', 
     get_pooled_connection => 'get', 
     save_pooled_connection => 'set', 
    }, 
    default => sub { {} }, 
); 

sub get_connection 
{ 
    my ($self, %options) = @_; 

    # some application-specific parsing of %options here... 

    my $obj; 
    if ($options{reuse}) 
    { 
     # extract the last-allocated connection for this database and pass it 
     # back, if there is one. 
     $obj = $self->get_pooled_connection($options{database}); 
    } 

    if (not $obj or not $obj->connected) 
    { 
     # look up connection info based on requested database name 
     my ($dsn, $username, $password) = $self->get_connection_info($options{database}); 
     $obj = DBIx::Connector->new($dsn, $username, $password); 

     return unless $obj; 

     # Save this connection for later reuse, possibly replacing an earlier 
     # saved connection (this latest one has the highest chance of being in 
     # the same pid as a subsequent request). 
     $self->save_pooled_connection($options{database}, $obj) unless $options{nosave}; 
    } 

    return $obj; 
} 

Answer 2

Basta fare in modo: sai di DBI->connect_cached(), giusto? Si tratta di una sostituzione drop-in per connect() che riutilizza dbh, ove possibile, per la durata del tuo script perl. Forse il tuo problema è risolvibile aggiungendo 7 caratteri :)

E, le connessioni di MySQL sono relativamente economiche. L'esecuzione con il DB allo max_connections=1000 o più non comporta di per sé problemi. (Se i tuoi clienti richiedono più lavoro di quello che può gestire il tuo DB, si tratta di un problema più serio, uno più basso del max_connections potrebbe rimandare ma ovviamente non risolvere.)