FTPによるファイル取得

---

　Net::FTPモジュールを使用します。
　詳しくはperldoc Net::FTPで見て下さい。

use Net::FTP;

my $host = '192.168.21.1';	# 接続先
my $user = 'User1';	# FTPのユーザ
my $pass = 'Pass1';	# FTPのパスワード
my $remote_file = 'data/data1.csv';	# リモートのファイル(これを取得)
my $local_file = '/tmp/data1.csv';	# ローカルファイル(ここに保存)

my $ftp = Net::FTP->new($host) or die "can not connection: $@";
$ftp->login($user, $pass) or die $ftp->message;	# ログイン
$ftp->binary;	# バイナリモードに変更
$ftp->get($remote_file, $local_file) or warn $ftp->message;	# ファイル取得
$ftp->quit;	# 終了

---

関連項目

・FTPによるファイル転送
・TELNETによるコマンド実行