Perl Connection Pooling

Question

En este momento tenemos una aplicación de perl grande que está utilizando DBI sin procesar para conectarse a MySQL y ejecutar sentencias de SQL. Crea una conexión cada vez y termina. Estamos comenzando a acercarnos al límite de conexión de mysql (200 a la vez)

Parece que DBIx::Connection admite la agrupación de conexiones de la capa de aplicaciones.

¿Alguien ha tenido alguna experiencia con DBIx::Connection?. ¿Hay alguna otra consideración para el agrupamiento de conexiones?

También veo mod_dbd que es un mod de Apache que parece que maneja la agrupación de conexiones. http://httpd.apache.org/docs/2.1/mod/mod_dbd.html

Answer 1

que no tienen ninguna experiencia con DBIx :: Conexión, pero yo uso DBIx::Connector (esencialmente lo DBIx :: Clase utiliza internamente, pero en línea) y es maravilloso ...

que estas conexiones piscina con un envoltorio objeto alces que da vuelta instancias de objetos existentes, si los parámetros de conexión son idénticos (esto funcionaría de la misma para cualquier objeto que subyace DB):

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

Sólo me aseguraba: conocer DBI->connect_cached(), ¿verdad? Es un reemplazo directo para connect() que reutiliza dbh's, donde sea posible, durante la vida de su script de Perl. Tal vez su problema se puede resolver agregando 7 caracteres :)

Y, las conexiones de MySQL son relativamente baratas. Ejecutar con su base de datos en max_connections=1000 o más por sí mismo no causará problemas. (Si sus clientes exigen más trabajo de lo que su DB puede manejar, ese es un problema más serio, uno que max_connections más bajo puede posponer, pero por supuesto no resolver.)