Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use warnings;
- use utf8;
- use Devel::Timer;
- use HTTP::Request;
- use IO::Async::Loop;
- use Net::Async::HTTP;
- #use IO::Socket qw(IPTOS_LOWDELAY);
- use Future::Utils qw(fmap_void);
- #settings
- use constant passwd => 'ultramegahypapassword';
- use constant agent => 'supa agent dev.alpha';
- use constant timeout => 10;
- use constant slots => 10;
- use constant debug => 1;
- use constant picsize => 50;
- my @qids;
- my @xmlz;
- my @urlz = (
- 'http://testpodarki.afghanet/api/products/4577',
- 'http://testpodarki.afghanet/api/products/4653',
- 'http://testpodarki.afghanet/api/products/4652',
- 'http://testpodarki.afghanet/api/products/4571',
- 'http://testpodarki.afghanet/api/products/4572',
- 'http://testpodarki.afghanet/api/products/4666',
- 'http://testpodarki.afghanet/api/products/4576',
- 'http://testpodarki.afghanet/api/products/4574',
- 'http://testpodarki.afghanet/api/products/4651',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[3294]',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[3294]',
- 'http://testpodarki.afghanet/api/combinations/?display=full&filter[id_product]=[4577]',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[4577]',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[4577]',
- 'http://testpodarki.afghanet/api/product_option_values/188',
- 'http://testpodarki.afghanet/api/product_option_values/191',
- 'http://testpodarki.afghanet/api/product_option_values/187',
- 'http://testpodarki.afghanet/api/product_option_values/190',
- 'http://testpodarki.afghanet/api/product_option_values/189',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[4653]',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[4653]',
- 'http://testpodarki.afghanet/api/images/products/4577/12176',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[4652]',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[4652]',
- 'http://testpodarki.afghanet/api/images/products/4653/12390',
- 'http://testpodarki.afghanet/api/combinations/?display=full&filter[id_product]=[4571]',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[4571]',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[4571]',
- 'http://testpodarki.afghanet/api/images/products/4652/12388',
- 'http://testpodarki.afghanet/api/product_option_values/175',
- 'http://testpodarki.afghanet/api/product_option_values/178',
- 'http://testpodarki.afghanet/api/product_option_values/179',
- 'http://testpodarki.afghanet/api/product_option_values/180',
- 'http://testpodarki.afghanet/api/product_option_values/181',
- 'http://testpodarki.afghanet/api/images/products/3294/8965',
- 'http://testpodarki.afghanet/api/product_option_values/176',
- 'http://testpodarki.afghanet/api/product_option_values/177',
- 'http://testpodarki.afghanet/api/combinations/?display=full&filter[id_product]=[4572]',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[4572]',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[4572]',
- 'http://testpodarki.afghanet/api/product_option_values/176',
- 'http://testpodarki.afghanet/api/product_option_values/181',
- 'http://testpodarki.afghanet/api/product_option_values/180',
- 'http://testpodarki.afghanet/api/images/products/4571/12159',
- 'http://testpodarki.afghanet/api/product_option_values/177',
- 'http://testpodarki.afghanet/api/product_option_values/179',
- 'http://testpodarki.afghanet/api/product_option_values/175',
- 'http://testpodarki.afghanet/api/product_option_values/178',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[4666]',
- 'http://testpodarki.afghanet/api/combinations/?display=full&filter[id_product]=[4576]',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[4666]',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[4576]',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[4576]',
- 'http://testpodarki.afghanet/api/images/products/4572/12168',
- 'http://testpodarki.afghanet/api/product_option_values/185',
- 'http://testpodarki.afghanet/api/product_option_values/182',
- 'http://testpodarki.afghanet/api/product_option_values/184',
- 'http://testpodarki.afghanet/api/product_option_values/183',
- 'http://testpodarki.afghanet/api/product_option_values/186',
- 'http://testpodarki.afghanet/api/images/products/4666/12413',
- 'http://testpodarki.afghanet/api/combinations/?display=full&filter[id_product]=[4574]',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[4574]',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[4574]',
- 'http://testpodarki.afghanet/api/product_option_values/177',
- 'http://testpodarki.afghanet/api/product_option_values/181',
- 'http://testpodarki.afghanet/api/images/products/4576/12174',
- 'http://testpodarki.afghanet/api/product_option_values/176',
- 'http://testpodarki.afghanet/api/product_option_values/180',
- 'http://testpodarki.afghanet/api/product_option_values/179',
- 'http://testpodarki.afghanet/api/product_option_values/175',
- 'http://testpodarki.afghanet/api/product_option_values/178',
- 'http://testpodarki.afghanet/api/specific_prices/?display=full&filter[id_product]=[4651]',
- 'http://testpodarki.afghanet/api/images/products/4574/12171',
- 'http://testpodarki.afghanet/api/stock_availables/?display=full&filter[id_product]=[4651]',
- 'http://testpodarki.afghanet/api/images/products/4651/12387'
- );
- my %responses;
- my %paramz = (user => passwd, pass => '');
- my $timer = Devel::Timer->new();
- my $loop = IO::Async::Loop->new();
- my $http = Net::Async::HTTP->new(user_agent => agent, timeout => timeout, max_connections_per_host => 0, pipeline => 0, ip_tos => 0x10);
- $loop->add( $http );
- $timer->mark('created all shit');
- my $future = fmap_void {
- (my $url ) = @_;
- my $request = HTTP::Request->new(GET => $url);
- $request->header(User_Agent => agent);
- $request->authorization_basic(passwd,'');
- $http->do_request( request => $request )
- ->on_done( sub {
- $timer->mark('gotta responze @'.$url.'!');
- my $response = shift;
- $responses{$url}=$response;
- print "$url succeeded: ".$response->code;
- print " Content-Type:".$response->content_type."\n";
- } )
- ->on_fail( sub {
- my $failure = shift;
- print "$url failed: $failure\n";
- } );
- } foreach => \@urlz;
- $timer->mark('after foreach');
- $loop->await( $future );
- $timer->report();
- print "\n\n";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement