[Perl] FTP접속, 다운로드 By 용호

2010년 6월 29일 화요일

FTP에 접속해서 서버의 내용을 확인하고 /document 디렉토리의 파일들을 다운 받기

먼저 FTP를 사용하기 위해서 NET::FTP 모듈이 있어야 한다. 없다면 CPAN에서 install을 해준다.
(cmd창 → cpan입력 → install NET::FTP)

NET::FTP의 메소드와 속성을 확인하기위해서는 perldoc을 활용한다.

위의 소스에서 cwd는 디렉토리 위치 변경해주는 메소드 이다.(cd명령과 비슷)
여기서 ls메소드를 사용하면 현재 경로에 존재하는 파일들의 파일명 리스트를 출력한다. return 값으로 파일명들이 배열의 형태로 리턴된다.  리턴된 값을 이용해서 ftp의 get메소드를 이용하여 모든 파일을 다운 받았다.

여기서 ftp의 binary를 사용한 이유는 기본적으로 ftp에서는 텍스트 파일 형식으로 다운 받기 때문에 txt파일을 제외한 나머지 파일들은 정상적으로 읽어들일 수가 없다.
전송받은 pdf파일을 열어보려고 하면 아래와 같은 메시지가 나타난다.

binary를 사용해준 이후에는 정상적으로 파일이 실행되는 것을 확인 할 수 있을 것이다.


▶코드 파일

ftp.pl