#perl2exe_include "HTTP/Message.pm";
#perl2exe_include "Encode/Locale.pm";
#perl2exe_include "parent.pm";
#perl2exe_include "URI/_foreign.pm";
#perl2exe_include "URI/_generic.pm";
#perl2exe_include "URI/_query.pm";
#perl2exe_include "HTTP/Cookies.pm";
#perl2exe_include "URI.pm";
print "Start \n";
use strict;
use URI::_foreign;
use URI::_generic;
use POSIX;
use HTTP::Cookies;
use LWP::UserAgent;
use HTML::Entities;
use WWW::Mechanize;
use URI::Escape;
use LWP::Simple;
use Encode::Byte;
use URI;
# require URI::_foreign;
print "Start 1\n";
my $ua = LWP::UserAgent->new(show_progress=>1);
$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:26.0) Gecko/2010010
+1 Firefox/26.0");
$ua->timeout(30);
$ua->cookie_jar({});
my $filename ="indiegogo";
my $cookie_file = $filename."_cookie.txt";
unlink($cookie_file);
print "Start 2\n";
my $cookie = HTTP::Cookies->new(file=>$cookie_file,autosave=>1);
$ua->cookie_jar($cookie);
my $url = 'https://www.bing.com/search?q=ALLIANCE+BOOTS+wikipedia&qs=n
+&form=QBRE&pq=alliance+boots+wikipedia&sc=1-24&sp=-1&sk=&cvid=745e119
+49da642d586c3e20bead13e60';
my ($req,$res);
$req = HTTP::Request->new(GET=>$url);
$req->header("Host"=>"www.bing.com");
$req->header("Accept"=>"text/html,application/xhtml+xml,application/xm
+l;q=0.9,*/*;q=0.8");
$req->header("Content-Type"=>"application/x-www-form-urlencoded");
$res = $ua->request($req);
$cookie->extract_cookies($res);
$cookie->save;
$cookie->add_cookie_header($req);
print "url :: $url";
my $code = $res->code();
print $code,"\n";
if($code =~ m/50/is)
{
sleep 1000;
goto REPEAT;
}
my $content = $res->content();
open sr,">narva.html";
print sr $content;
close sr;
exit;
|