Perl 스크립트에서 FTP에서 SFTP로 변환하는 방법은 무엇입니까?

Question

FTP 개체를 사용하여 몇 개의 파일을 AIX 상자에 보내는 기존 Perl 스크립트가 있습니다. 나는 리눅스 박스가 FTP를 지원하지 않는다는 것을 발견했다. SFTP를 지원합니다. SFTP를 사용하기 위해 스크립트를 변환하기 위해 어떤 단계를 밟아야합니까?

Answer 1

현재 스크립트는 Net::FTP 모듈을 사용하고 있습니다. Net::SFTP 모듈과 CPAN의 종속성이 필요합니다. 기존 스크립트를 가이드로 사용하여 새 스크립트를 시작할 수도 있습니다. 그러나 논리는 동일합니다. 연결, 전송 및 연결 해제.

Answer 2

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

나는 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과 같은 것을 사용하는 대신 함수를 래핑해야합니다.