Leser: 3
|< 1 2 3 >| | 24 Einträge, 3 Seiten |
Quotemy $unzip='/bin/bunzip2';
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
#!/usr/bin/perl use strict; use warnings; use LWP::Simple; my $pfad='C:/Perl/eg/'; # < Das "/" am Ende ist wichtig, sonst funktioniert der Pfad unten nicht. my $liste='C:/Perl/eg/meineliste.txt'; # < Semikolon vergessen # Programm zum entpaken der bzip2-komprimierten Dateien # sollteste du installieren, oder etwas anders nutzen. my $unzip='/bin/bunzip2'; # < Das ist ein Programm, ich glaube nicht, dass es so gefunden wird open(my $fh, '<', $liste) or die "Fehler bei open $liste ($!)\n"; # < immer den Fehlergrund mit ausgeben while(my $url=<$fh>){ chomp($url); my ($file)=$url=~m|/([^/]+?)$|; # etwas ausfuerlichere Ausgabe der Fehler beim Download # zudem wird jetzt nur entpackt wenn wirklich was herunter geladen wurde. my $rc=getstore($url, "$pfad$file"); if( is_success($rc)){ system("$unzip $pfad$file") ==0 or warn "Fehler bei $unzip $pfad$file ($@)\n"; # < Fehlergund ausgeben }else{ warn "Fehler bei download $url nach $pfad$file (".status_message($rc).")\n"; # < Fehlergrund mit ausgeben } } close($fh);
script.pl 2>errors.txt
|< 1 2 3 >| | 24 Einträge, 3 Seiten |