問題でした。見逃していました。Net::FTPの新しいバージョンを持つ64ビットのPerlで試しました。PASVは最初は失敗しますが、あとでもう一度試みて成功します。まあ、XPでは前のjperlのプログラムで成功していたのですが・・・
ありがとうございました。おかげさまで、この検討の過程で、TeraPadのエディタ編集保存時のアクセス許可の問題が明らかになりました。さて、さて、どんな環境にしたら便利なんだろう・・・
----^
C:\Users\jscripter\Documents>perl
ftp2site_en.pl c:\xxxxx\tsnetwork\renewal.html
Net::FTP>>> Net::FTP(2.77)
Net::FTP>>> Exporter(5.66)
Net::FTP>>> Net::Cmd(2.29)
Net::FTP>>> IO::Socket::INET(1.33)
Net::FTP>>> IO::Socket(1.34)
Net::FTP>>> IO::Handle(1.33)
Net::FTP=GLOB(0x2218910)<<< 220
your.ftp.com FTP Server (Version 1.0) ready.
Connected to
your.ftp.com
Net::FTP=GLOB(0x2218910)>>> PASV
Net::FTP=GLOB(0x2218910)<<< 530 Please login with USER and PASS
Net::FTP=GLOB(0x2218910)>>> USER ftpaccount
Net::FTP=GLOB(0x2218910)<<< 331 Password required for ftpaccount
Net::FTP=GLOB(0x2218910)>>> PASS ....
Net::FTP=GLOB(0x2218910)<<< 230 User ftpaccount logged in
Logged in...
Net::FTP=GLOB(0x2218910)>>> CWD /yourdirectory
Net::FTP=GLOB(0x2218910)<<< 250 CWD command successful
Moved to /yourdirectory directory...
Net::FTP=GLOB(0x2218910)>>> TYPE A
Net::FTP=GLOB(0x2218910)<<< 200 Type set to A
Ascii mode...
Net::FTP=GLOB(0x2218910)>>> ALLO 72772
Net::FTP=GLOB(0x2218910)<<< 202 No storage allocation necessary
Net::FTP=GLOB(0x2218910)>>> PASV
Net::FTP=GLOB(0x2218910)<<< 227 Entering Passive Mode (202,248,88,177,195,244)
Net::FTP=GLOB(0x2218910)>>> STOR renewal.html
Net::FTP=GLOB(0x2218910)<<< 150 Opening ASCII mode data connection for renewal.h
tml
Net::FTP=GLOB(0x2218910)<<< 226 Transfer complete
Transfer c:\xxxxx\tsnetwork\renewal.html
Net::FTP=GLOB(0x2218910)>>> QUIT
Net::FTP=GLOB(0x2218910)<<< 221 Goodbye.
Quit
-----$
2012/11/25 Zazel <
zaz...@gmail.com>: