Thread ftp download und umformatierung (2 answers)
Opened by lukastonner at 2010-06-16 14:27

lukastonner
 2010-06-16 14:27
#138415 #138415
User since
2010-02-07
47 articles
BenutzerIn
[default_avatar]
Hallo,
habe einen Code erstellt um Dateien via ftp zu laden. Es funktioniert alles, nur bekomme ich die Dateien nicht in meinen vordefinierten Order (dest_dir). ich bekomme die Fehlermeldung: "Cannot open local file. */*/* is a directory." Hat jemand ne Idee was ich im Code vergessen habe, und,- die Dateien sind im CSV Format. Kann man sie gleich "on the fly" in ein "normales" ASCII (Tab getrennt)umformatieren?
Danke schonmal im vorraus.
Code: (dl )
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
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;

my $host = "ftp.1234.de";
my $user = "xxx";
my $pass = "xxx";
my $dest_dir = "/home/datafiles/data/";
my $ftp = "";
my @dir = "";
my $filename = "";
my $now = "";

$ftp = Net::FTP->new($host, Debug => 0)
or die "Es konnte keine Verbindung zu $host: $@ aufgebaut werden", $ftp->message;

$ftp->login($user, $pass);

$ftp->cwd("/download/data/")
or die "Ziel-Verzeichnis nicht gefunden", $ftp->message;

@dir = $ftp->ls('*.*');

foreach(@dir){

eval {
$filename=$_;
print "\n\n versuche $filename herunterzuladen\n";
$ftp->get($filename ,"$dest_dir");
print " $filename heruntergeladen\n" ;
};

if($@){ #Fehlerabfrage
onError("Fehler beim download von $filename : \n\n $@");
}
}

print "\n Download beendet \n";

View full thread ftp download und umformatierung