Advertisement
Quantumzblue

Untitled

Sep 21st, 2019
505
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.07 KB | None | 0 0
  1. #!/usr/bin/perl -w
  2. use Data::Dumper;
  3. use HTTP::Cookies;
  4. use LWP::UserAgent;
  5. use LWP::Simple;
  6. use strict;
  7. $| =1;
  8.   my $url = 'https://www.mobafire.com/league-of-legends/skins?sort_type=release_date&sort_order=desc&champion_id=&skin_name=&skin_type=&is_available=&on_sale=&is_new=&page=1';
  9.   my $information = 'skinpages.txt';
  10.   my $browser;
  11.  
  12.                                     sub startBrowser{
  13.  
  14.  
  15.                                        $browser = LWP::UserAgent->new(
  16.                                           agent=>'Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.12) Gecko/20101026 Firefox/1.5.0.5',
  17.                                         #  cookie_jar => $cookie_jar,
  18.                                           max_redirect => 0,
  19.                                           timeout =>15,
  20.                                                                         );
  21.                                     }
  22.  
  23. startBrowser();
  24.  
  25. sub main() {
  26.   my $resp = $browser->get($url);
  27.     my $content = $resp->content();
  28.        print  "$content \n";
  29.      }
  30.  
  31.      main();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement