http://thingy.kcilink.com/modperlguide/databases/Apache_DBI_does_not_work.html http://perl.apache.org/guide/performance.html#mod_perl_Database_Performance_Im (давольно долго грузится т.к. много)
Возможно поможет:
# Apache::Registry script
-------------------------
use strict;
use vars qw($dbh);
$dbh ||= SomeDbPackage->connect(...);
Стоит обратить внимание, что $dbh - глобальная переменная
И еще, оттудова же:
Apache::DBI allows you to make a persistent database connection. With this module enabled, every connect() request to the plain DBI module will be forwarded to the Apache::DBI module. This looks to see whether a database handle from a previous connect() request has already been opened, and if this handle is still valid using the ping method. If these two conditions are fulfilled it just returns the database handle. If there is no appropriate database handle or if the ping method fails, a new connection is established and the handle is stored for later re-use. There is no need to delete the disconnect() statements from your code. They will not do anything, the Apache::DBI module overloads the disconnect() method with a NOP. When a child exits there is no explicit disconnect, the child dies and so does the database connection. You may leave the use DBI; statement inside the scripts as well.
The usage is simple -- add to httpd.conf:
PerlModule Apache::DBI
It is important to load this module before any other DBI, DBD::* and ApacheDBI* modules!
db.pl
------------
use DBI ();
use strict;
my $dbh = DBI->connect( \'DBI:mysql:database\', \'user\', \'password\',
{ autocommit => 0 }
) || die $DBI::errstr;
...rest of the program
