Perl 스크립트에서 FTP에서 SFTP로 어떻게 변환합니까?

Question

FTP 객체를 사용하여 몇 개의 파일을 AIX 상자에 전송하는 기존 PERL 스크립트가 있습니다. 방금 Linux 상자가 FTP를 지원하지 않는다는 것을 알게되었습니다. SFTP를 지원합니다. SFTP를 사용하려면 스크립트를 변환하려면 어떤 조치를 취해야합니까?

Answer 1

현재 스크립트가 사용 중일 것입니다 NET :: FTP 기준 치수. 당신은 필요합니다 net :: sftp CPAN의 모듈 및 그 종속성. 기존 스크립트를 가이드로 사용하여 새 스크립트를 시작할 수도 있습니다. 그러나 논리는 동일합니다. 연결, 전송 및 분리.

Answer 2

나는 실제로 비슷한 일을했다. 그러나 필요할 때 SFTP를 통해 현재 FTP 스크립트를 실행하도록 준비하는 것이 었습니다.

나는 래퍼 객체를 만들었습니다 Net::SFTP a처럼 보이고 행동합니다 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.