こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Net::FTP使用時の取得値をどうやって取得するのですか

perlでftpをしたいので調べたら以下のようなページを見つけました。

http://perldoc.jp/docs/modules/libnet-1.12/Net/FTP.pod

接続
$ftp = Net::FTP->new("some.host.name", Debug => 0);
ログイン
$ftp->login("anonymous",'-anonymous@');

のようにしていけばいいのはわかったのですがpwdなどのコマンドの場合
「返します」と書いてあるんですが、どうすれば取得できるのかわかりません。

たとえばpwdであれば
$ftp->pwd();
だと思うのですが、その結果はどうとるのでしょうか・・・
$ftpのなかかと思ったのですが、
print $ftp
とすると
Net::FTP=GLOB(0x8067224)
と出てきました・・・

あとコネクトも成功、失敗はどうしたらわかるのでしょうか。

投稿日時 - 2008-01-08 18:39:48

QNo.3661646

困ってます

質問者が選んだベストアンサー

use Net::FTP;

sub main(){

my $ftp;
my $path;
my $loginresult;
$ftp = Net::FTP->new("localhost", Debug => 0);

$loginresult = $ftp->login('himajin100000@example.com','example');

if ($loginresult == 1){
#ログイン成功
$ftp->cwd("./hoge");
$path = $ftp->pwd();
#出力結果はディレクトリが存在していれば/hoge
print $path;

#もちろん,別に変数に受けずに
#print $ftp->pwd();
#といきなりやっても良い

}else{
#ログイン失敗
print "login failed";
}


}

&main;

投稿日時 - 2008-01-08 19:13:59

お礼

恐れ入ります!

これでいいのですね!

試してみます!ありがとうございました!

投稿日時 - 2008-01-10 11:57:29

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問