LINUX.ORG.RU
ФорумTalks

Почему не работает прокси (закомментировал)?


0

0

#!/usr/bin/perl
########################################################################
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
########################################################################
#cfg: сколько раз:
my $postcount=1000;
########################################################################
my(@HF);
open(HF, "<bl.txt");
chomp(@HF=<HF>);
close(HF);

my(@PL);
open(PL, "<pl.txt");
chomp(@PL=<PL>);
close(PL);

my($req, $page, $post, @ns_headers, $agent, $proxy, $ua, $cookie_jar);
my($a,$b,$back,$id);

for (my $i=0;$i<$postcount;$i++){
	$agent = $HF[rand((scalar @HF))];
	$agent =~ s/^(\S+)?\s+(\S+)?\s+(.+?)$/$3/im;
	$proxy = $PL[rand((scalar @PL))];

	@ns_headers = (
		'User-Agent: '.$agent, 
		'Accept: text/html,application/xhtml+xml,application/xml;*/*;', 
		'Accept-Language: ru-RU,ru;en-US;en;', 
		'Accept-Encoding: deflate',
		'Accept-Charset: KOI8-R,utf-8;q=0.7,*;q=0.7'

	);
	
	$ua = LWP::UserAgent->new;
		$cookie_jar = HTTP::Cookies->new(autosave => 1,);
		$ua->cookie_jar($cookie_jar);
		push @{ $ua->requests_redirectable }, 'POST';
	#$ua->proxy('http', 'http://'.$proxy.'/');

	$req = $ua->get('http://www.nameofrussia.ru/person.html?id=87', @ns_headers);
	if ($req->is_success) { 
		$page = $req->content; 
		if ($page =~ m/<input\s+type="hidden"\s+name="a"\s+id="a"\s+value="(.+?)">/){$a = $1};
		if ($page =~ m/<input\s+type="hidden"\s+name="b"\s+id="b"\s+value="(.+?)">/){$b = $1};
		if ($page =~ m/<input type="hidden" name="back"\s+id="back"\s+value="(.+?)">/){$back = $1};
		if ($page =~ m/<input\s+type="hidden"\s+name="id"\s+id="id"\s+value="(.+?)">/){$id = $1};
		
		$post = $ua->post('http://www.nameofrussia.ru/submit.html', 
			{'a' => $a,
			'b' => $b,
			'back' => $back,
			'id' => $id,}
		);
		if ($post->is_success) { 
			print "OK\n";
		} 
		else {
     		die $post->status_line . " (2) \n";
 		}
	}
	 else {
     	print $req->status_line . " (1) \n";
 	}
}
exit;


само оно с внешними файликами:
http://fedya.spb.su/uploads/irf.pl.tar.gz

Сталин не нужен

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.