FTPによるファイル転送

---

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

use Net::FTP;

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

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

---

関連項目

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