在 OpenSSH 中重定向调试输出

Question

我正在开发一个通过 OpenSSH 运行交互式命令的程序，但我不知道如何将调试输出重定向到 debug.txt。

这是代码：

#!/usr/bin/perl

use strict;                                                 
use Net::OpenSSH;

my ($u_name, $acc_name, $acc_uid);

print "Enter account ID: ";
$acc_uid = <STDIN>;
chomp ($acc_uid);

print "Login as: ";
$u_name = <STDIN>;
chomp ($u_name);

my $createuser = "sudo useradd $acc_uid";

system ("clear");

BEGIN { 
    open (my $out, '>>', '/usr/local/debug.txt') or warn $!;
    $Net::OpenSSH::debug_fh = $out;
    $Net::OpenSSH::debug = 16;
}  

my $ssh = Net::OpenSSH->new( "$u_name\@myserver", strict_mode => 0);

$ssh->system({tty => 1 }, "$createuser") 
                or die "remote command failed: " . $ssh->error;

我在 Net::OpenSSH 中找到了 Net::OpenSSH::debug 的代码，这是程序的输出：

Enter account ID: usertest
Login as: testuser
# open_ex: ['ssh','-V']
# _waitpid(711) => pid: 711, rc:
testuser@myserver's password:
# open_ex: ['ssh','-O','check','-T','-S','/root/.libnet-openssh-perl/testuser-myserver-344-438107','-l','testuser','myserver','--']
# _waitpid(349) => pid: 349, rc:
# open_ex: ['ssh','-qtt','-S','/root/.libnet-openssh-perl/testuser-myserver-344-438107','-l','testuser','myserver','--','sudo useradd testuser123']
[sudo] password for testuser:
# _waitpid(350) => pid: 350, rc:
# open_ex: ['ssh','-O','exit','-T','-S','/root/.libnet-openssh-perl/testuser-myserver-344-438107','-l','testuser','myserver','--']
# _waitpid(351) => pid: 351, rc:

当我检查 debug.txt 时，它是空的。谢谢！

Answer 1

你说：

The version is 0.62.

正如 changelog 解释的那样：

0.66 Oct 11, 2015

documentation fix (reported by Alex Kok)

allow redirecting debug output to a custom file handle

$Net::OpenSSH::debug_fh 仅在 Net::OpenSSH 0.66+ 中受支持。在旧版本中，它总是记录到 STDERR.

在 OpenSSH 中重定向调试输出

Redirect debugging output in OpenSSH

perl

openssh