Как захватить вывод команды в 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);

0 ответов

Другие вопросы по тегам