#!/usr/bin/perl # Create a user agent object use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $url = 'http://www.nwweather.com/images/realwind-animate1.gif'; my $response = $ua->get($url, ':content_file' => '/kunden/homepages/ +40/d176746031/htdocs/NWWX/CamScripts/testimage.gif'); # Pass request to the user agent and get a response back # Check the outcome of the response if ($response->is_success) { print $url; } else { print $response->status_line, "\n"; }
In reply to Re^2: linux file creation
by Anonymous Monk
in thread linux file creation
by gmclean
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |