Downloading stuff in Perl?

G

gaiacarra

New member
use WWW::Mechanize;

$m = 'WWW::Mechanize' -> new;

$m -> get("http://imgs.xkcd.com/comics/nowhere.png",

':content_file', 'courtesy_of_perl.png');

Now, I KNOW this program was working earlier. I tried running it again and nothing happened. Any ideas?
By the way, Yahoo chopped off the end of the URL, it's whole in my version.
Just caught the lack of a 'my' in front of $m. Still not working, though.
The server's just fine, as is that particular image.
Got it - I just ended up using a different function LWP::Simple -> getstore()
 
Back
Top