Re: How do I convert this wget to perl?

With LWP::UserAgent, you can specify a "cookie jar" file by doing the following:

# Assumes $ua is an LWP::UserAgent object
use HTTP::Cookies;
my $cookie_jar = HTTP::Cookies->new(
    file     => "./lwp_cookies.dat",
    autosave => 1,
);
$ua->cookie_jar($cookie_jar);
[download]

You can then use the $cookie_jar->add_cookie_header() method to potentially pre-load the cookie jar with the value. You may also be able to do so instead by using the additional arguments of the $lwp->get() method, similar to the following (untested):
$ua->get( $url, ':content_file' => 'file.bin', 'Cookie' => '...', );

Hope that helps.

Comment on Re: How do I convert this wget to perl? Select or Download Code

Replies are listed 'Best First'.
Re^2: How do I convert this wget to perl? by Todd Chester (Scribe) on Oct 04, 2015 at 00:44 UTC
Sorry for being slow here, but I am having trouble wrapping my mind around what is going on with `$ua->get( $url, ':content_file' => 'file.bin', 'Cookie' => '...', );` Do I create 'file.bin'? or does the 'get' do that? What goes in the '...' part of the 'Cookie'? Does this download the cookie for me? And I guess I do not understand what a cookie is. I thought it was "oraclelicense=accept-securebackup-cookie" or is that the name of something else that has to be downloaded? Do I do a second 'get' to download the .exe file after the above? or does the above do the whole thing?	[reply] [d/l]
Re^3: How do I convert this wget to perl? by Corion (Patriarch) on Oct 04, 2015 at 08:08 UTC
See LWP::UserAgent. The `->get` method sends a GET request and downloads the response to the file `file.bin` as per the `:content_file` argument. I don't find a special `Cookie` argument documented for `->get` though, so I suspect that this won't work to set the cookie header as you want it. I think you will have to use HTTP::Cookies to set the cookie to the value you want.	[reply] [d/l] [select]
Re^3: How do I convert this wget to perl? by BrowserUk (Patriarch) on Oct 04, 2015 at 02:24 UTC
Why not just call the wget executable from within your Perl script using system? With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :) In the absence of evidence, opinion is indistinguishable from prejudice. I'm with torvalds on this Agile (and TDD) debunked I told'em LLVM was the way to go. But did they listen!	[reply]
Re^4: How do I convert this wget to perl? by Todd Chester (Scribe) on Oct 04, 2015 at 07:36 UTC
it give me the finger wag about not pressing the agree license button	[reply]
Re^5: How do I convert this wget to perl? by Corion (Patriarch) on Oct 04, 2015 at 08:05 UTC


Perl: the Markov chain saw
	PerlMonks