BlackBoard | Druckvorschau: FXP mit Perl

BlackBoard (http://www.black-board.net/index.php)
- Design, Programmierung & Entwicklung (http://www.black-board.net/board.php?boardid=55)
-- Programmieren (http://www.black-board.net/board.php?boardid=4)
--- Perl FXP mit Perl (http://www.black-board.net/thread.php?threadid=20517)

Geschrieben von kilone am 29.05.2005 um 17:31:

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

Geschrieben von Misel am 29.05.2005 um 18:06:

RE: FXP mit Perl

hilft dir vielleicht das hier, als Beispiel weiter?

http://www.linuxlinks.com/Software/Networking/FTP/FXP/

Geschrieben von fogol am 12.06.2005 um 19:55:

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__

Geschrieben von kilone am 22.06.2005 um 14:00:

@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 ^^