この日記を更新するのに、ftp を使うのだが、
１）DOS プロンプトの ftp.exe
２）Internet Explorer
３）PERL の、NET::FTP モジュール
のいずれかを適宜使い分けている。FFFTP とか使わないの？という疑問をお持ちかもしれないが、まあなるべくレジストリをいじりかねないものはインストールしない方針ですので。
ftp.exe は、リモートサイトの設定にもよるのだろうが、アイドル時間を置くと接続が切れてしまい、そのたびにパスワードの入力、そして接続許可を待ってまた cd から始めなければならない。
IEは、便利だが、最初にパスワードを入力して接続許可をもらったり、ファイルの一覧を必ず表示する、その時間がかったるいし、何よりもバイナリモードでしかファイルを送れないという問題がある。パーミション変更は、一番楽である。
PERL の、NET::FTP モジュールを使ったスクリプトだと、とにかく非常に早い。しかし、今日まで、パーミション変更の方法がわからなかったので、CGI をテストする段になると、IEを起動してパーミション変更をする、その際、サイトによっては、二重ログインができないので、最初からIEを起動しっぱなしにしておくことはできない、というめんどうがあった。
たぶん、PERL の、NET::FTP モジュールでも、コマンドの発行はできてパーミション変更もできるのだろうな、と思って時折、調べてみていたが、どうもわからないでいた。
灯台もと暗し。枕元に常に置いてある(文字通り「枕頭〈ちんとう〉の書」だ)「PERL クイックリファレンス」(オライリー・ジャパン 2000年)に説明があったではないか。おかしいなあ、見たつもりでいたのに。
というわけで、とある CGI をアップしてパーミション変更するには、
---------------------------------------------
#!/usr/bin/perl
use Net::FTP;
$ftp = Net::FTP->new('FTPサイト',Debug=>1);
$ftp->login('ユーザ名','パスワード');
$ftp->ascii(); # アスキーモードにする
$ftp->cwd('ディレクトリ'); # ディレクトリを移る
$ftp->put('ＣＧＩ.cgi'); # ファイルをアップする
# quote site を発行してパーミション変更
$ftp->quot('site','chmod','755','ＣＧＩ.cgi');
$ftp->quit();
---------------------------------------------
で可能になった。へへへ、ラクチンである。
↑翌日へ →題名目次 |
