  |
|
|
 |
 FXP mit Perl |
kilone 
Senior Member
Dabei seit: 13.09.2001
Beiträge: 320
 |
|
 FXP mit Perl |
|
Hi ich habe nen Problem ich möchte ne Datei/Ordner via FXP (File Exchange Protocol) auf einen anderen FTP-Server übertragen.
Der ServerA auf dem die Datei/Ordner liegt ist FXP fähig,
der ServerB der die Datei/Ordner erhalten soll auch.
Nen normalen FTP-Client habe ich schon gecodet mit NET::FTP
doch bekomme ich es nicht hin das er die Übertragung mach.
Ich finde leider keinerlei Hinweise oder Module um das in Perls zu realisiern.
Ich hoffe ihr könnt mir helfen 
__________________
Klick mich fest
|
|
29.05.2005 17:31 |
|
|
Misel
Hüter des Kitkat
Dabei seit: 02.11.2002
Beiträge: 1.203
Herkunft: live://home.berlin.d
e
|
|
|
|
29.05.2005 18:06 |
|
|
fogol
Neuling
Dabei seit: 03.05.2005
Beiträge: 4
|
|
| RE: FXP mit Perl |
|
hier mal ein kleines beispiel mit perl geht lokal sehr schön .
| Zitat: |
#!/bin/perl
use Net::FTP;
my $host = 'localhost';
my $user = 'thomas';
my $password = 'topsecret';
# Neues Net::FTP-Objekt
my $ftp = Net::FTP->new($host,
Timeout => 360,
Debug => 1
);
unless (defined $ftp) {
print "$@\n";
die "Can't create Net::FTP-Object\n";
}
$ftp->login($user,$password) || die "Can't login $!";
print "Aktuelles Verzeichnis des FTP-Servers: ", $ftp->pwd() , "\n";
my $file;
my $array_ref = $ftp->ls();
foreach $file (@$array_ref) {
# Transfermodus in Abhängigkeit von der Dateiendung setzen
if ($file =~ /(\.gif|\.jpg|\.tar|\.tar\.gz|\.tgz|\.zip)$/) {
$ftp->type(I);
} else {
$ftp->type(A);
} ## if else
$ftp->get($file) || next;
} ## foreach
$ftp->quit();
__END__
|
|
|
|
12.06.2005 19:55 |
|
|
kilone
Senior Member
Dabei seit: 13.09.2001
Beiträge: 320
Themenstarter 
|
|
@fogol das hab ich schon hinter mir dachte aber das es eventuel ein FXP modul gibt mit dem auch mit dem selbstgecodeten Client Files verschieben kann.
Naja hab es jedenfalls gelöst hab das jetzt mit lftp gemacht ^^
__________________
Klick mich fest
|
|
|
22.06.2005 14:00 |
|
|
|
|
|
|
|