(^_^;)perlでFTPクライアントを作ることになりました。
今使っているあるFTPサーバには外部への通信機能が制限されているためです。
LWPが使えないということ。
なので、外部のサーバからFTPクライアントを作成してそのモジュールをキックしてあげたいと思っております・・・
メンドクセ、他に解決方法ないんだろうか?
perlでFTPを使用するにはNet::FTPモジュールが必要。
以下、簡単なサンプルソースです。
use Net::FTP;
$ftp = Net::FTP->new(鯖名称) || warn("つながらない4.\n");
$ftp->login(ユーザ名,パスワード) || warn("ログインできない4.\n"); #anonymousの場合はloginの引数は空
$ftp->ascii(); #asciiモーと設定
$ftp->get("hoge.txt"); #hoge.txtをダウンロード
$ftp->put("hoge2.txt"); #hoge2.txtをアップロード
$ftp->quit();
後は、このモジュールをどこに置いてどこからキックするかだな。
バッチ処理的に動かしたい。
でも、実際にはソースに鯖、ユーザ名やパスワードとか書くわけにもいかないし。
はぁ