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

您说：

版本为0.62。

如changelog所述：

0.66 2015年10月11日


文档修复（由Alex Kok报告）

允许将调试输出重定向到自定义文件句柄

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

重定向OpenSSH中的调试输出

1 个答案: