Datei über HTTP downloaden wenn vorhanden!?

[Frank Schönmann]

hi!

use LWP::UserAgent;
use HTTP::Request;
my $ua = new LWP::UserAgent;
my $URL = "http://www.domain.tld/readme.txt"
my $path = "C:/data/readme.txt"
my $content;
my $request = HTTP::Request->new(GET => $URL);
my $response = $ua->request($request);
if ($response->is_error()) {

»»  print "Error: Could not get this URL - the response has been:\n"
»»  print $response->status_line, "\n"

} else {

»»  $content = $response->content();
»»  open (FILE, ">$path");

print FILE "$content"

»»  close (FILE);

}

Klar, warum einfach, wenn's auch kompliziert geht? Auch für dich wäre
es vielleicht nicht verkehrt, mal perldoc LWP::Simple anzuschauen.
Abgesehen davon halte ich es nicht für sinnvoll, Leute am denken zu
hindern, indem man ihnen für so einfache Probleme vollständig
ausgearbeitete Lösungen vorsetzt.

bye, Frank!