使用Net :: SFTP :: Foreign的Perl摆脱服务器欢迎消息

Question

当我连接到proFTP服务器时，我收到打印到stdout的欢迎消息。

my $sftp = Net::SFTP::Foreign->new($sftserver);

一切正常，但我怎么能摆脱这条消息？

我不想将整个脚本输出传递给/ dev / null，而且我无法访问服务器的配置。

感谢。

Answer 1

使用记录的stderr_fh选项：

  

stderr_fh =＆gt; $跳频

     

将SSH子进程发送给stderr的输出重定向到给定的文件句柄。

     

它可用于抑制横幅：

open my $ssherr, '>', '/dev/null' or die "unable to open /dev/null";
my $sftp = Net::SFTP::Foreign->new($host,
                               stderr_fh => $ssherr);