Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -w
- use Data::Dumper;
- use HTTP::Cookies;
- use LWP::UserAgent;
- use LWP::Simple;
- use strict;
- $| =1;
- 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';
- my $information = 'skinpages.txt';
- my $browser;
- sub startBrowser{
- $browser = LWP::UserAgent->new(
- agent=>'Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.12) Gecko/20101026 Firefox/1.5.0.5',
- # cookie_jar => $cookie_jar,
- max_redirect => 0,
- timeout =>15,
- );
- }
- startBrowser();
- sub main() {
- my $resp = $browser->get($url);
- my $content = $resp->content();
- print "$content \n";
- }
- main();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement