Perlで、Net::FTPモジュールを使って
サーバーにファイルをアップロード（PUT）しようとしているのですが
うまくいきません。
次のようなソースです。
何が悪いのか診断してもらえないでしょうか？
※補足
・FFFTPでは、PASVモード有効、ポート番号21でGETもPUTも成功しているので、
FTPの設定の問題ではないと思います。
・$ftp->pwd()すると、cwdで移動したパスをちゃんと取ってくるので、
ログインや cwdは成功しているようです。
・特に、$ftp->putでパソコン上のファイルのパスを指定する方法がよくわかりません。
use Net::FTP;
$FtpHostName = "hogehoge.com";
$FtpDataPath = "/home/hogehoge/www/sub";
$FtpUserName = "myname";
$FtpPassword = "letmein";
$datafile = "C:\\temp\\test.txt";
$ftp = Net::FTP->new( $FtpHostName );
$ftp -> login( $FtpUserName, $FtpPassword );
$ftp -> pasv();
$ftp -> port( 21 );
$ftp -> ascii();
$ftp -> cwd( $FtpDataPath );
$ftp -> put( $datafile ) or
die "PUT FAILED";
$ftp -> quit();
よろしくお願いします。
ベストアンサー
-
rouge_2008
満足200pt
「$ftp -> port( 21 );」の行を削除して試してみてください。
このメソッドは、サーバーの21番ポートに接続する事を指定するものではなく、クライアントPCのIPアドレスと待ち受けるポートを送信するもののようです。
http://x68000.q-e-d.net/~68user/net/ftp-4.html
・「ポート番号の伝達」より
・PORT … ポート番号を送信 (Active モード)
データコネクションの確立の際、FTP サーバ側から FTP クライアント側に接続するよう伝える。 FTP クライアントが IP アドレス 10.0.0.1 で動いており、ポート 5000 番を listen しているなら、
PORT 10,0,0,1,19,136
200 PORT command successful.
と送信する (5000=19×256+136)。 その後 FTP クライアントが LIST やRETR コマンドを送信すると、 FTP サーバ側が 10.0.0.1 のポート 5000 に接続し、データの送受信が始まる。
※次のように「$ftp->message」でコマンド実行で返されたメッセージを確認してみてください。
$ftp->pasv(); print $ftp->message . "<br>\r\n";
次のような形式でIPアドレスとポート番号が返されると思います。
Entering Passive Mode (***,***,***,***,242,90).
※上記の場合、242×256＋90＝62042番ポート
※Activeモードで接続する場合、「$ftp->port()」と何も指定しないで実行してみてください。(「$ftp->port(***,***,***,***,xxx,xx)」と自分のPCのIPとポート番号を指定しても接続できると思いますが、未確認です。)
※Passiveモードで接続するのでしたら、portを実行する必要はありません。
ActiveモードとPassiveモードの違いは、次のページも確認しておくとより理解できると思います。
http://x68000.q-e-d.net/~68user/net/ftp-3.html
※(1)から読んでもいいと思います
「Active モード」というもので、データコネクションの確立の際、「FTP サーバ側が能動的に FTP クライアント側に接続する」という動作になります。
一方、「Passive モード」というものがあります。このモードでは、「FTP サーバ側が受け手となり、FTP クライアントからの接続を待つ」という動作になります。つまり、FTP クライアントは、 bind・listen・accept などのサーバ的な動作をする必要がなくなるのです。
あるいは、オプションで次のように指定しても、すべての転送がPassiveモードになるようです。
$ftp = Net::FTP->new($FtpHostName, Passive => 1);
http://perldoc.jp/docs/modules/libnet-1.12/Net/FTP.pod
Passive - 0以外の値を設定すると、全てのデータ転送はパッシブモードを使って行われます。いくつかのダム(dumb)サーバーといくつかのファイアウォールの設定を除けば、通常、必要とされません。これは環境変数FTP_PASSIVEによって設定することもできます。
-
uta_at_home
-
uta_at_homeその他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2010-07-10 22:52:01
- 終了日時
- 2010-07-13 02:15:37
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者
ファイアーウォール機能でPerl.exeを拒否していないか確認してみてください。(一応、Windowsのファイアーウォール機能の設定も・・・)
ローカル環境に設置したスクリプトを実行して、外部のFTPサーバーに接続したいのだと思っていました・・・
他の人にファイルをアップロードしてもらうのが目的でしたら、フォームを利用してアップロードするようにするといいかもしれません。
たくさんのポイントといるかをありがとうございました。ｍ(＿＿)ｍ
レンタルサーバーに設置したＣＧＩを使って
ローカルＰＣのファイルをサーバーにアップロードしようとしていました。
質問が説明不足で申し訳ありませんでした。
回答とてもありがたかったです。
お恥ずかしい話、
今までは ＰＡＳＶモードもおまじないのようにＯＮ／ＯＦＦしていただけで
意味もわかっておらず、
今回初めて理解できました。
ＦＴＰの仕組みがいろいろわかったので、今後の役に立つと思います。
こちらこそありがとうございました。