perl - Perl スクリプトで FTP から SFTP に変換するにはどうすればよいですか?

Question

FTP オブジェクトを使用していくつかのファイルを AIX ボックスに送信する既存の Perl スクリプトがあります。私たちの Linux ボックスが FTP をサポートしていないことを発見しました。SFTP をサポートしています。スクリプトを変換して SFTP を使用するには、どのような手順を実行する必要がありますか?

Answer 1

私も実際に似たようなことをしたことがあります。ただし、現在の FTP スクリプトを必要に応じて SFTP 経由で実行できるように準備する必要がありました。

Net::SFTPオブジェクトのように見えて動作するラッパー オブジェクトを作成しましたNet::FTP。したがって、すべての呼び出しが別の実装の場所に残される可能性があります。

私はこれから行きました：

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

に

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

Net::FTPそして、新しいクラスで使用していたすべてのメソッドを実装しました。Net::SFTPはいくつかの異なるリターンを返すため、 のようなものを使用するだけでなく、実際に関数をラップする必要がありますClass::Delegator。

Answer 2

現在のスクリプトはおそらくNet::FTPモジュールを使用しています。CPAN からNet::SFTPモジュールとその依存関係が必要になります。既存のスクリプトをガイドとして使用して、新しいスクリプトを開始することもできます。ただし、ロジックは同じです。接続、送信、切断。