2

以前に投稿した質問に関して、特定のファイルをロードするために次のスクリプトを作成しました。

#!/bin/perl

use strict;
use Net::FTP;

my $ftpOb = Net::FTP->new("X")
         or die ("Could not connect to the FTP Server: $@");
print "Connected \n";

$ftpOb->login("A", "B")
         or die ("Incorrect server credentials");
print "Logged in \n";

print " Current folder is: " . $ftpOb->pwd();

$ftpOb->cwd("root/Folder") or die ("Cannot connect to the folder on Server");
print "Transferred to folder \n";


$ftpOb->get("621418185-006249189002-5383.txt")
         or die ("Error occured while fetching the file");

$ftpOb->quit;

ただし、コードは作業ディレクトリの変更に失敗したようで、次の出力が表示されます。

Connected
Logged in
Cannot connect to the folder on Server at ./GetUploadFile.pl line 16.
 Current folder is: /

誰かがここで問題をデバッグするのを手伝ってもらえますか？

4

1 に答える 1

2

エラーメッセージに含めます（正しいエラーメッセージが$ftpOb->message() ある接続を除く）。$@

また、dir（）を実行して、使用可能なファイル/ディレクトリーをリストします。

于 2012-04-27T20:15:14.627 に答える