0

我正在尝试将所有目录及其内容从 sftp 传输到 unix 服务器，并从 SFTP 服务器删除所有传输的文件。为此，我在 SFTP::Foreign 模块中使用 rget 方法。但是当我运行下面的代码时，我不断收到错误消息。请帮忙。

use Net::SFTP::Foreign;

use constant {
    HOST       => "Host name",
    REMOTE_DIR => "sample/remote",
    LOCAL_DIR  => "sample/local",
    USER_NAME  => "username",
    PASSWORD   => "password",
    DEBUG      => "0",
};

my $sftp;
$sftp = Net::SFTP::Foreign->new(
    HOST,
    timeout  => 240,
    user     => USER_NAME,
    password => PASSWORD,
    autodie  => 1,
) or die "Connection failed: " . $sftp->error;

$sftp->setcwd(REMOTE_DIR);
my @files = @{ $sftp->ls };    #Returns a reference to an array of hashes

for my $file (@files) {
    print "Found file $file->{filename}\n";

    $sftp->rget( $file, $file, on_error => sub { print $sftp->error; } );
    print "File - $file transferred\n";

    # Delete Files
    $sftp->rremove( $file, on_error => sub { print $sftp->error; } );
    print "Deleted File -$file\n";
}

当我运行上面的代码时，我得到如下错误。

Couldn't stat remote link: No such file

但是当我去远程位置时，目录是存在的。

但是当我使用下面的代码尝试不使用 for 循环时，它工作正常。

$sftp->rget( REMOTE_DIR, LOCAL_DIR, on_error =>
      sub { print $sftp->error; } ) ;

但我的要求是使用 for 循环，以便我可以在传输文件后立即删除它。因为单独删除可能会导致问题，因为目录会经常添加到 SFTP 中，我不想删除任何尚未传输的文件夹。

4

1 回答 1

0

ls() 返回一个 hashref 数组。您想要获取/删除$file->{filename}，而不是$file.

于 2013-07-29T20:42:30.343 回答