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

解決済

質問者：azicyan
質問日時：2008/01/08 18:39
回答数：1件

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

http://perldoc.jp/docs/modules/libnet-1.12/Net/F …

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

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： himajin100000
回答日時：2008/01/08 19:13

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;