Moin!

ich bin einmal ganz frech und frage, ob mir einer von Euch ein kleines skript basteln kann.

habe schon perl wegen anderer skripte laufen und will nicht nochmehr installieren. leider habe ich auch noch nicht die passenden hinweise im netz gefunden und daher die frage - vom aufbau eigentlich nicht schwer....

aufgabenstellung

es gibt eine datei mit folgendem inhalt:

http://osm.ammit.de/osm/latest/img/63273983.img.bz...
http://osm.ammit.de/osm/latest/img/63273984.img.bz...
http://osm.ammit.de/osm/latest/img/63273985.img.bz...
...

diese datei soll ausgelesen werden - die angegeben dateien heruntergeladen werden und abschließend die bz2 noch entpackt werden.

das sollte doch mit einer schleife und .... funktionieren?

würde mich sehr freuen.

gruß Jan :-)

datei öffnen und zeile für zeile auslesen - http://p3rl.org/open, http://p3rl.org/perlopentut
jeweils dateinamen abschneiden, in diesem fall wohl mit split - http://p3rl.org/split
url runterladen - LWP::Simple
bunzip auf der kommandozeile aufrufen - http://p3rl.org/system
oder mit Archive::Tar entpacken

ungetestet:

Gast+2008-10-29 17:52:43--

ungetestet:
[...]

bei open or die "..." immer auch den grund mit angeben, der steht in der variable $!
was nützt mir die fehlermeldung, wenn ich nicht weiss, warum es fehlschlug?

Moin !

vielen dank für die hilfe.

werde ich mir mal genauer ansehen und testen. besonderen dank auch für die quellhinweise - so kann ich das für mich nachvollziehen.

gruß Jan :-)

Moin !

ich habe jetzt mehre Anläufe genommen und bekomme immer wieder nur Fehlermeldungen, die ich mir mit meiner Literatur auch nicht erklären kann.

Folgendes steht jetzt in der Datei:

#!/usr/bin/perl;


use strict;
use warnings;
use LWP::Simple;

my $pfad='C:/Perl/eg';
my $liste='C:/Perl/eg/meineliste.txt'

my $unzip='/bin/bunzip2';

open(my $fh, '<', $iste) or die "Fehler bei open $liste\n";
while(my $url=<$fh>){
chomp($url);
my ($file)=$url=~m|/([^/]+?)$|;
getstore($url, "$pfad$file") or warn "Fehler bei download $url nach $pfad$file\n";
system("$unzip $pfad$file") ==0 or warn "Fehler bei $unzip $pfad$file\n";
}
close($fh);[code]

... und ich bekomme folgende Fehlermeldung (Windows):

synax error at [Dateiname].pl line 11 near "my "
Global Symbol "$unzip" requires explicit package name at [Dateiname].pl
... gleiche Meldung für $liste, $unzip

Das Packet bunzip2 habe ich noch nicht installiert. Das Verzeichnis liegt mir zwar manuell vor - aber soll ich das vor den "Einbindebefehlen" einfach in das Perl-Verzeichnis kopieren ???

Über den Perl Package Manager wird mir bunzip nicht gelistet !!!

Kann mir einer weiterhelfen ????

Gruß Jan :-)

Da fehlt ein Strichpunkt

Und bei open(my $fh, '<', $iste) fehlt noch das l von $liste... (Wurde zwar noch nicht angemeckert, wird strict dann aber tun wenn Du das Semikolon nach dem my $list = ... eingefügt hast...

jan99+2008-11-14 12:24:41--

Folgendes steht jetzt in der Datei:

#!/usr/bin/perl;

hm, dein perl-binary hat ein semikolon am ende?
oder ist dir das von der zeile da unten, wo es fehlt, hochgehüpft? =)
vielleicht mal einen vernünftigen editor benutzen...

Moin !

"Da fehlt ein Strichpunkt" - wo denn ????

gruß Jan :-)