从 PERL 的 $sftp->get 或 do {...} 中获取错误文本

Question

我不是 perl 程序员，但需要调试错误。我正在使用 Net:SFTP:Foreign 包。

当我尝试获取文件时，以下调用失败：

$sftp->get(source,destination) or do { print "something goneError."}

此行返回“something goneError.”。我想要的是找出哪里出了问题！如何提取失败原因？

顺便说一句，这个脚本已经运行了几个月，没有出现任何错误。该脚本非常可靠，我只是不知道如何捕获失败的原因。

Answer 1

$sftp->get(source, destination) or warn "get() failed with " . $sftp->error . "\n";

Answer 2

$sftp->get($source, $destination)
   or print "something went wrong: " . $sftp->error . "\n";