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

Question

当我连接到proFTP Server时，我收到欢迎消息打印到stdout。

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

一切正常，但是如何摆脱此消息？

我不想将整个脚本输出传递到/ dev / null，也无权访问服务器的配置。

谢谢。

Answer 1

按照记录使用stderr_fh选项：

stderr_fh => $ fh

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

它可以用来抑制横幅：

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