Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > установка 10 одновременных соединений с бд

Автор: yodgik1 4.10.2007, 15:53

подскажите как можно реализовать такую задачу.
необходимо установить 10 соединений и что бы в каждом из соединений выволнялся запрос тоже 10 раз

Автор: KSURi 4.10.2007, 23:13

perldoc threads

Код


...
use threads;
...
my @threads = ();
push(@threads, threads -> create(\&db_routine)) for 1..10;
$_ -> join foreach @threads;
...
sub db_routine
{
    # Установка соединения и т.д.
}

Автор: yodgik1 8.10.2007, 16:16

да получилось только когда делаешь 150
ругается
Can't call method "join" on an undefined value at Perl-3.pl line 20.

Автор: KSURi 8.10.2007, 18:33

Скорее всего кол-во подключений с одного IP к базе ограничено.
Т.е. поток не создается потому, что DBI::connect в случае неудачного подключения вызывает die

Автор: biophreak 9.10.2007, 13:21

Да, и, ТС, не забывай дисконект от базы делать smile

А то у тебя еще и дескрипторы к чертям забьюца smile