モジュールによるファイルのアップロード

ファイルの列挙はまだまだ考えなければいけないことがあるがひと休みする。 もう一つ、ftp が perl でどのように実現できるかを調べなければならない。

先にモジュールについて調べてみたことは書いた。 私が知りたかったモジュールは、 ftp を行なうモジュールだ。 どこかで読んだ記事によれば、get のみができるモジュールと、 put 、get ともにできるモジュールがあるということだった。 今回の目的は自分のホームページの更新だから、put ができる必要がある。 この put ができるモジュールは、Net::FTP であることがわかった。 私が見た Net::FTP の例では get が使われているが、今回は put を使った。 例を次に示す。 ホスト名は some.host.name、ログイン名は anonymous、 パスワードは me@here.there、ホスト上のディレクトリ名は /pub としている。

# renovigo05.pl
# 2000-11-03
# MARUYAMA Satosi All Rights Reserved.
#

use Net::FTP;
$_ = "tako";
chdir $_;

$ftp = Net::FTP->new("some.host.name");
$ftp->login("anonymous","me@here.there");
$ftp->cwd("/pub");
$ftp->put("index.html");
$ftp->quit;

念を押しておくが、上記はサンプルである。実際は私の実のホスト名、ログイン名、 パスワード、ホスト上のディレクトリ名をそれぞれ使っている。 こんなもので特に問題もなく、本当に index.html が更新できてしまった。

まりんきょ学問所 ＞ perl手習い ＞ モジュールによるファイルのアップロード