Perl : net:ftp

[sebskulptura]

Hallo,

Gibt es eine Methode für net::ftp per mget Daten zu ziehen?

z.B: mget *abc.txt (bei einer normalen FTP-Sitzung)

Danke,

seb

[dr.disk]

Nein, meines Wissens nach gibt's sowas nicht. Bleibt also noch der klassiche Weg: per ls und RegEx ein Array erzeugen und dessen Inhalt anschließend einzeln abholen.

[sebskulptura]

Danke für Deine Antwort. Aber wie lese ich das in ein Array und sortiere später aus?

danke!

[dr.disk]

Wieso erst später? Machs doch gleich!

my @wantedFiles;

foreach my $file ($ftp->ls('.')) {

  next if $file =~ m/^\.\.?$/o;

  next if $file !~ m/jpg$/o;

  push @wantedFiles, $file;

}

Ich meinte in Erinnerung zu haben, daß das Modul Net::FTP so funktioniert. Sollte es Probleme geben schaue ich aber auch gerne nochmals nach.

Zurück zum Code: mit ls wird ein Array aller Dateien angefordert. Dieses wird sofort durch die Schleife ausgewertet und nur diejenigen Dateien, die mit 'jpg' enden werden in das Array wantedFiles aufgenommen. Die erste Prüfung überspringt . und .. (und könnte in diesem Fall auch weggelassen werden).

Denkbar wäre natürlich auch noch eine weitere Verkürzung: anstelle des push könnte man natürlich auch sofort ein $ftp->get aufrufen...

[sebskulptura]

:-/ *Schluck* Welch ein Code! Ich bin gerade dabei Perl zu lernen. Da werde ich wohl noch etwas pauken müssen.

Vielen Dank für Deine Hilfe! :-D

[dr.disk]

Hoffe mal, Dich nicht zu sehr abgeschreckt zu haben . Perl ist auf jeden Fall eine Sprache die sich zu lernen lohnt.

Ich hab hier mal ein paar Bücher die ich Einsteigern nur wärmstens empfehlen kann:

http://www.amazon.de/exec/obidos/ASIN/3897211475/ref=br_lf_b_5/028-1138701-4233340

http://www.amazon.de/exec/obidos/ASIN/3897211440/ref=br_lf_b_2/028-1138701-4233340

http://www.amazon.de/exec/obidos/ASIN/3827315352/ref=br_lf_b_11/028-1138701-4233340

Vorbehaltslos zu empfehlen sind sowiesso alle O'Reilly Bücher zum Thema Perl: http://www.ora.de/perl/

In diesem Sinne: viel Spaß mit Perl!

[sebskulptura]

Danke für die vielen Links. Ich habe mir von O`Reilly Einführung in Perl gekauft. Das ist wirklich gut.

Danke für deine Hilfe! :-)