download_html_perl

Repository which shows some of examples of downloading HTML from a URL
git clone git://git.samirparikh.com/download_html_perl
Log | Files | Refs | README

mojo_ua.pl (709B) - raw

      1 #!/usr/local/bin/perl
      2 
      3 use strict;
      4 use warnings;
      5 use v5.32;
      6 use Mojo::UserAgent;
      7 
      8 #
      9 # See guides at:
     10 # https://docs.mojolicious.org/Mojo/UserAgent
     11 # https://docs.mojolicious.org/Mojo/Cookie/Response
     12 # https://metacpan.org/pod/Mojo::UserAgent
     13 #
     14  
     15 my $ua  = Mojo::UserAgent->new;
     16 my $url = "https://example.com";
     17 
     18 $ua->cookie_jar->add(
     19   Mojo::Cookie::Response->new(
     20     name   => 'session',
     21     value  => '90ip...pt71',
     22     domain => 'example.com',
     23     path   => '/'
     24   )
     25 );
     26 
     27 my $res = $ua->get( $url )->result;
     28 if    ($res->is_success)  { say $res->body }
     29 elsif ($res->is_error)    { say $res->message }
     30 elsif ($res->code == 301) { say $res->headers->location }
     31 else                      { say 'Whatever...' }