Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Скриптовые языки программирования > PHP
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.02.2010, 01:45   #1
mkth
Новичок
Джуниор
 
Регистрация: 21.02.2010
Сообщений: 1
По умолчанию Ошибка в скрипте

Код:
#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;

open (FILE , '<file.txt');
my @f = <FILE>;
chomp @f;

my $ua = LWP::UserAgent->new;

$ua->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)');

$i = 1;
while ($i>3) {
  $а[$i] = $ua->default_header('VIA' =>"@f");
  ++$i;
}

$ua->default_header('Referer' => "http://site.ru/");
$ua->default_header('Accept' => "text/html");
$ua->default_header('Accept-Charset' => "windows-1251");

my $response = $ua->get('http://goodsite.ru/');

if ($response->decoded_content =~ m%document\.getElementById\('some'\)\.src\s*=\s*'\s*(.*?)\s*'%s)

{  
   sleep (30);
   $ua = LWP::UserAgent->new;

   $ua->agent('Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)');
   $ua->default_header('VIA' =>"@f");
   $ua->default_header('Referer' => "http://site.ru/");
   $ua->default_header('Accept' => "text/html");
   $ua->default_header('Accept-Charset' => "windows-1251");

   my $response = $ua->get($1);
}
else
{
  print "No.\n";
}
Пытаюсь в цикле менять IP в заголовке VIA... Но че то ничего не получается... Прошу, подправьте код, сам никак не могу додуматься
mkth вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В скрипте кракозябры antiblef PHP 0 06.01.2010 17:15
Ошибка в скрипте (html+php) SwitchOFF PHP 4 17.08.2009 15:23
Цикл в скрипте SoFuWa Microsoft Office Excel 5 21.03.2009 20:29
Помощь в скрипте Kreaman PHP 5 29.11.2008 20:27
Ошибка в скрипте Qsajeal PHP 11 03.06.2008 12:22