Wie würde man von FTP-SFTP in einem Perl-Skript konvertieren?

Question

Ich habe einen vorhandenen Perl-Skript, das das FTP-Objekt verwendet ein paar Dateien auf eine AIX-Box zu senden. Ich habe gerade entdeckt, dass unsere Linux-Box nicht FTP unterstützt. Es tut SFTP unterstützen. Welche Schritte sollte ich durch mein Skript zu konvertieren SFTP zu benutzen?

Answer 1

Ihre aktuelle Skript mit wahrscheinlich dem Net :: FTP Modul. Sie müssen die Net :: SFTP Modul und ihre Abhängigkeiten von CPAN. Sie können nur noch ein neues Skript starten die bestehenden als Leitfaden. Die Logik ist die gleiche, aber. Eine Verbindung, senden und trennen.

Answer 2

Ich habe tatsächlich etwas ähnliches getan. Aber es war jeden aktuellen FTP-Skript zur Vorbereitung via SFTP ausgeführt werden sollte, wenn nötig.

Ich habe ein Wrapper-Objekt um Net::SFTP die aussieht und wirkt wie ein Net::FTP Objekt. Daher werden alle Anrufe an Orten mit einer anderen Implementierung überlassen werden könnte.

Ich ging von dieser:

my $client = Net::FTP->new( Host => 'ftp.somehost.com', ... );

my $client = FTPClient->new( Host => 'ftp.somehost.com', ...
                           , secureFTP => 1 
                           ); 

Und alle Methoden implementiert Ich war mit von Net::FTP in meiner neuen Klasse . Net::SFTP gibt einige verschiedene kehrt zurück, so dass Sie sich tatsächlich Funktion wickeln, anstatt nur mit so etwas wie Class::Delegator .