Как захватить вывод команды в Perl с помощью Net::SSH?
Я нашел множество способов использовать подобные модули Perl для захватаssh
вывод командной строки (напримерNet::SSH::Perl
), но не знаю, как это сделать с помощью , что мне и нужно, поскольку он упакован в Debian.
Я нашел пример, который показывает некоторое использованиеNet::Perl
но недостаточно, чтобы этот новичок мог работатьls -1
в удаленной системе и отправить вывод на мою консоль, но я хочу записать вывод в@list
:
use Net::SSH qw(ssh issh sshopen2 sshopen3);
ssh('user@hostname', $command);
issh('user@hostname', $command);
ssh_cmd('user@hostname', $command);
ssh_cmd( {
user => 'user',
host => 'host.name',
command => 'command',
args => [ '-arg1', '-arg2' ],
stdin_string => "string\n",
} );
sshopen2('user@hostname', $reader, $writer, $command);
sshopen3('user@hostname', $writer, $reader, $error, $command);