Kết nối Perl Kết nối

Question

Ngay bây giờ, chúng tôi có một ứng dụng perl lớn đang sử dụng DBI thô để kết nối với MySQL và thực thi các câu lệnh SQL. Nó tạo ra một kết nối mỗi lần và kết thúc. Đã bắt đầu tiếp cận giới hạn kết nối của mysql (200 cùng một lúc)

Có vẻ như DBIx::Connection hỗ trợ ghép nối lớp ứng dụng.

Có ai có bất kỳ trải nghiệm nào với DBIx::Connection không? Có cân nhắc nào khác về kết nối tổng hợp không?

Tôi cũng thấy mod_dbd là một mod Apache có vẻ như nó xử lý kết nối tổng hợp. http://httpd.apache.org/docs/2.1/mod/mod_dbd.html

Answer 1

tôi không có bất kỳ kinh nghiệm với DBIx :: Kết nối, nhưng tôi sử dụng DBIx::Connector (thực chất là gì DBIx :: Class sử dụng trong nội bộ, nhưng inlined) và rất tuyệt vời ...

tôi hồ bơi những kết nối này với một wrapper đối tượng Moose mà trao lại trường hợp đối tượng hiện tại nếu các thông số kết nối là giống hệt nhau (điều này sẽ làm việc tương tự cho bất kỳ đối tượng DB cơ bản):

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

Chỉ cần đảm bảo: bạn có biết về DBI->connect_cached(), phải không? Đó là một thay thế thả cho connect() mà reuses dbh của, nếu có thể, trong suốt cuộc đời của kịch bản perl của bạn. Có thể sự cố của bạn có thể giải quyết được bằng cách thêm 7 ký tự :)

Và các kết nối của MySQL tương đối rẻ. Chạy với DB của bạn tại max_connections=1000 hoặc nhiều hơn sẽ không tự gây ra vấn đề. (Nếu khách hàng của bạn đang yêu cầu nhiều công việc hơn DB của bạn có thể xử lý, đó là một vấn đề nghiêm trọng hơn, một trong đó thấp hơn max_connections có thể đưa ra nhưng tất nhiên không giải quyết.)