PERL ssh script tty issue

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