VPF::SocksChain: указание определенного сокса

Валерия

Дата 30.1.2010, 13:39 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


@sockses = file_get_contents("socks/s.txt", 1);
foreach $sock (@sockses){
    push (@$socks, $sock);

}

@LWP::Protocol::http::SocksChain::EXTRA_SOCK_OPTS = ( Chain_Len    => 1,
                                                       Debug        => 1,
                                                       Random_Chain => 1,
                                                       Chain_File_Data => $socks,
                               Timeout => 10,
                                                       Auto_Save    => 0,
                                                       Restore_Type => 0 );

Таким образом указываю работу с соксами. (file_get_contents моя функция)
Теперь, когда я создаю много потоков и там использую LWP, то в каждом вызове берется рандомный сокс.
Так вот, как сделать что бы в каждом потоке был один работающий сокс, и он не менялся при каждом новом вызове LWP ?
Если есть мануал по соксчайну - тоже приветсвуется, т.к не могу нигде найти, кроме подобного примера.

Pfailed

Дата 30.1.2010, 17:36 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Валерия @ 30.1.2010, 13:39

)

Так вот, как сделать что бы в каждом потоке был один работающий сокс,

Просто создавайте в каждом потоке свой объект LWP и модифицируйте его согласно мануалу LWP::Protocol::http::SocksChain. Эти изменения будут распространяться только на данный поток.

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

I'm on CPAN
I'm on github

Валерия

Дата 30.1.2010, 21:17 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо, всё получилось smile

А вот еще такой вопросик в тему, а можно ли давать сразу десяток прокси, и если он попадает на нерабочую, то он не возвращает "500 error" а будет брать следующую, пока не найдет рабочую или они не кончатся?

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