in reply to HTTP GET with a timer

Nothing in that code will try to download any embedded pdf, unless the actual adress of that pdf is $web_address

See for yourself 

use Data::Dump qw/ dd pp /;
use LWP::Simple qw/ $ua /;
$ua->show_progress( 1 );
dd( $ua->get( q{http://example.com/} ) );
__END__

[download]

Replies are listed 'Best First'.
Re^2: HTTP GET with a timer (embedded pdf)
by lastbronx4u (Initiate) on Dec 12, 2013 at 13:31 UTC

    Thanks for the reply

    But $web_address is initialized to this value

    "https://www.edockets.state.mn.us/EFiling/edockets/searchDocuments.do?method=showPoup&documentId={615DAF1F-C025-401F-9150-DB3337EF61A7}&documentTitle=201312-94506-01"

    Above url contains an embedded pdf.

    Please help
[reply]
      Greetings, lastbronx4u

      If I were you, and attempting to deduce what's wrong with the script. I'd probably drop/comment the timer lines. Until I got the script working. I might also dump the 2 cache lines as well. I think you want to add 

      $req->content_type('application/whatever-pdf-mimetype-is');

      [download]
      to whatever the mimetype for PDF documents are. In fact, you might even better choose raw, or choose binmode. Given that the PDF is binary, and embeded in the web page.

      I'll do a little experimenting. If I find anything better/useful. I'll update this post.

      Best wishes.

      --Chris

      Maybe the following will provide what you need -- worked for me: 

      use LWP::UserAgent;
     $ua = LWP::UserAgent->new;

     my $req = HTTP::Request->new(GET =>
        'http://full-url-you-want-or-are-requesting');
# following line defines what will be saved to your machine
     $res = $ua->request($req, "html-filename-dot-html-part--index-dot
+-html-for-example");
     if ($res->is_success) {
        print "ok\n";
     }
     else {
        print $res->status_line, "\n";
     }

      [download]

      Yes. What say about me, is true.
[reply]
[d/l]
[select]

      Above url contains an embedded pdf.

      No it doesn't, the phrase is nonsense

[reply]

In Section Seekers of Perl Wisdom