in reply to Re: linux file creation
in thread linux file creation
#!/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"; }
|
|---|