Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Почему не работает код  (Прочитано 33706 раз)
0 Пользователей и 1 Гость смотрят эту тему.
samlab
Гость
« : 06-03-2010 15:02 » 

Для того, чтобы при парсинге не попасть в бан, хочу рандомно менять User Agent Да-да
Но почему-то не работает этот код, подскажите пожалуйста, где ошибка Жаль
Код:
open(A,"< agents.txt");
@agents=<A>;
chomp(@agents);
close(A);

my $agent = $agents[rand(scalar(@agents))];

my $ua = LWP::UserAgent->new;
$ua->agent($agent);

Содержимое файла agents.txt

Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.9) Gecko/20050711
Mozilla/5.0 (X11; U; Linux i686 (x86_64); en-US; rv:1.9a1) Gecko/20060127 Firefox/1.6a1
Mozilla/5.0 (Windows; U; Windows NT 5.0;; rv:1.8.0.7) Gecko/20060917 Firefox/1.9.0.1
Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/124 (KHTML, like Gecko) Safari/125.1
Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-us) AppleWebKit/418.8 (KHTML, like Gecko) Safari/419.3
Opera/9.02  (Windows NT 5.0; U; en)
Opera/9.10  (Windows NT 5.1; U; en)
Opera/9.10  (Windows NT 6.0; U; en)
Opera/9.02  (Windows NT 5.2; U; en)
« Последнее редактирование: 06-03-2010 15:03 от samlab » Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 06-03-2010 15:14 » 

При парсинге ты в бан не попадешь. Равно как не попадешь в бан здесь, читая газету у себя в туалете (что тоже парсинг). Это я к тому, что не надо путать разные сущности — лучше будет понимание.

Код:
open(A,"< agents.txt") or die "Openning file: " . $!;
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
samlab
Гость
« Ответ #2 : 06-03-2010 16:11 » 

При парсинге ты в бан не попадешь. Равно как не попадешь в бан здесь, читая газету у себя в туалете (что тоже парсинг). Это я к тому, что не надо путать разные сущности — лучше будет понимание.

Спасибо за ценное замечание, теперь буду знать, на будущее...

Добавлено через 31 секунду:
Код:
open(A,"< agents.txt") or die "Openning file: " . $!;

Спасибо за код, все робит...
« Последнее редактирование: 06-03-2010 16:11 от samlab » Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 06-03-2010 20:40 » 

samlab, ошибок не выдает?
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
samlab
Гость
« Ответ #4 : 13-03-2010 21:21 » 

samlab, ошибок не выдает?

Выдавало ошибку, потом понял, что файл не в одной директории со скриптом лежит и все заработало, как надо!
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 13-03-2010 21:24 » 

Я к тому, что если ошибка возможна, то ее надо обязательно обработать.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
samlab
Гость
« Ответ #6 : 26-03-2010 20:04 » new

Я все понял, спасибо за помощь Улыбаюсь
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines