Подмогните кодом, пожалуйста
Код:
#!/usr/bin/perl
use LWP::UserAgent;
use warnings;
my $ua = LWP::UserAgent->new;
$ua->agent('Opera/9.02 (Windows NT 5.1; U; ru)');
$ua->default_header('VIA' =>"myvalue"); # менять в цикле (совпадают)
$ua->default_header('Referer' => "http://somesite.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\('framename'\)\.src\s*=\s*'\s*(.*?)\s*'%s)
{
sleep (30);
$ua = LWP::UserAgent->new;
$ua->agent('Opera/9.02 (Windows NT 5.1; U; ru)');
$ua->default_header('VIA' =>"myvalue"); # менять в цикле (совпадают)
$ua->default_header('Referer' => "http://somesite.ru/");
$ua->default_header('Accept' => "text/html");
$ua->default_header('Accept-Charset' => "windows-1251");
my $response = $ua->get($1);
}
else
{
print "No.\n";
}
Как в цикле менять 'VIA', если сложить значения в столбиках в текстовом файле... К примеру, после прохода двух циклов, 'VIA' меняется на следующее, причем, в первом и втором запросе значения 'VIA' должны совпадать... Очень прошу помочь кодом, заранее спасибо... |
