#!/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
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум Хорошая документация c примерами по LWP::UserAgent (2006)
- Форум lwp не хавает кукисы после редиректа (2009)
- Форум Upload file v PHP (2001)
- Форум sbcl hunchentoot - проблема с set-cookie (2010)
- Форум [ЖЖ] Велосипед не мой. (2009)
- Форум Имитация отправки формы (2013)
- Форум Не работает метод post в PHP7 на Ubuntu (2017)
- Форум [php][file upload] Не работает move_uploaded_file() (2011)
- Форум [python]Отправка http-запроса на upload-файла на Yandex.narod2 (2011)
- Форум Задача на bash (2013)