VPF::Threads и lwp с https, проблема - Форум программистов

Валерия

Дата 3.9.2014, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: 8

При использовании потоков и lwp загружая странички с https частенько полностью всё вылетает, я так понимаю что lwp не очень потокобезопастный
Как можно это исправить?

Добавлено через 9 минут и 38 секунд
Если запустить такое, то начинают сильно сыпаться всевозможные ошибки

Код


use threads;
use LWP;

for $i (1..40){
    push @threads, threads->create(\&thr, $i);
}

foreach my $thread (@threads) {
    $thread->join();
}



sub thr {
    $n = shift;
    print "$n started\n";
    while (1){
        $ua = LWP::UserAgent->new();
        $ua->timeout(15);
        $content = $ua->get("https://mail.yandex.ua")->as_string();
        print $n . " " . time() . "\n";
    }
}

Bulat

Дата 3.9.2014, 20:30 (ссылка)

(нет голосов)

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

Цитата(Валерия @ 3.9.2014, 20:13

)

Если запустить такое, то начинают сильно сыпаться всевозможные ошибки

у мя все работает! smile

Ты под виндой работаешь?? Если да? то это проблема винды и тредов в нем, а не lwp. smile

--------------------

менеджер по кодеврайтингу smile

Валерия

Дата 3.9.2014, 20:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: 8

Да под виндой
Может есть альтернатива ActivePerl под win в которой нормально будет работать такое?

arto

Дата 3.9.2014, 20:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

AnyEvent::HTTP ?

infarch

Дата 5.9.2014, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: 1

Статья в тему: http://habrahabr.ru/post/234835/

Переделайте пример под работу с сетью и проверьте.

Pfailed

Дата 6.9.2014, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 22
Всего: 39

use Coro

Код


use Coro::LWP;
use Coro::PatchSet;
use Coro;
use LWP;

for $i (1..40){
    push @threads, Coro->new(\&thr, $i);
    $threads[-1]->ready;
}

foreach my $thread (@threads) {
    $thread->join();
}

sub thr {
    $n = shift;
    print "$n started\n";
    while (1){
        $ua = LWP::UserAgent->new();
        $ua->timeout(15);
        $content = $ua->get("https://mail.yandex.ua")->as_string();
        print $n . " " . time() . "\n";
    }
}

Это сообщение отредактировал(а) Pfailed - 6.9.2014, 21:10

--------------------

I'm on CPAN
I'm on github

Pfailed

Дата 6.9.2014, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 22
Всего: 39

Кстати "use strict" не пробовали? Использование глобальных переменных в подпрограмме это высший пилотаж.

--------------------

I'm on CPAN
I'm on github

tzirechnoy

Дата 7.9.2014, 08:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1173
Регистрация: 30.1.2009

Репутация: нет
Всего: 16

Цитата

Использование глобальных переменных в подпрограмме это высший пилотаж.

В мультитредной подпрограмме, что характерно. +1, да, я как-то пропустил вчера это мимо глаз.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »