Модераторы: ginnie, korob2001
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> установка 10 одновременных соединений с бд 
:(
    Опции темы
yodgik1
Дата 4.10.2007, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 21.6.2007

Репутация: нет
Всего: нет
подскажите как можно реализовать такую задачу.
необходимо установить 10 соединений и что бы в каждом из соединений выволнялся запрос тоже 10 раз
PM MAIL   Вверх
KSURi
Дата 4.10.2007, 23:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 5
Всего: 27
perldoc threads

Код

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



--------------------
Died at Life.pl line 21
PM Jabber   Вверх
yodgik1
Дата 8.10.2007, 16:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 21.6.2007

Репутация: нет
Всего: нет
да получилось только когда делаешь 150
ругается 
Can't call method "join" on an undefined value at Perl-3.pl line 20.
PM MAIL   Вверх
KSURi
Дата 8.10.2007, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

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


--------------------
Died at Life.pl line 21
PM Jabber   Вверх
biophreak
Дата 9.10.2007, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.5.2007

Репутация: нет
Всего: нет
Да, и, ТС, не забывай дисконект от базы делать smile А то у тебя еще и дескрипторы к чертям забьюца smile
PM MAIL ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: Системное программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к системному программированию на Perl
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0433 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.