PERL ssh脚本tty问题

Question

我想写一个PERL脚本ssh到远程机器并运行一些tcptraceroutes。我设法很好地处理了SSH部分。然而，tcptraceroute命令需要sudo，这里是我遇到问题的地方。例如：

my (@traces, $stderr, $exit) = $sshCali->cmd(tty => 1, 
"sudo tcptraceroute $endpoint", interactive => 1, debug => 1); 

当我使用的tty => 1周系统的投诉，出现此错误： “不是一个TTY” 当我不使用TTY => 1，则我得到这个： “须藤：对不起，你必须有一个tty运行sudo“ 任何帮助将不胜感激。这里是我的代码：

#!/usr/bin/perl 
use strict; 
use warnings; 
use Net::SSH::Perl; 

#vars 
my $endpoint = 172.31.100.1; 
my @traces; 
my $sshCali; 
my $hostCali = 'remotemachine'; 
my $cmd = 'sudo traceroute'; 

warn "Starting SSH Services:...\n"; 

$sshCali = Net::SSH::Perl->new($hostCali, interactive => 1, debug => 0) or die "Couldnt establish connection!"; 

$sshCali -> login("user"); # for non-interactive mode; 

print "here\n"; 

my (@traces, $stderr, $exit) = $sshCali->cmd("sudo tcptraceroute $endpoint", interactive => 1, debug => 1); 

#my (@traces, $stderr, $exit) = $sshCali->cmd(tty => 1,"$cmd $endpoint", interactive => 1, debug => 1); 

print STDERR "STDERR: $stderr\n" if $stderr; 
print "command exit w/ code: $exit\n"; 

$sshCali -> cmd("exit"); 


print "NOW ..... Printing the array: TRACES\n"; 
print @traces; 

在此先感谢。

Answer 1

完全可以在您的主目录中安装模块并在您的脚本中调用它。请参阅Perlmonks上的此节点以获得确切步骤：Installing Perl modules in home directory