Buenas tardes,
resulta que necesito realizar una conexión por SSH y he intentado hacerlo de todas las formas y no me ha funcionado. La idea es conectarme a un switch pero no he podido. Con la conexión telnet sí me ha funcionado, como lo muestro a continuación.
use Net::Telnet;
use Sys::Hostname;
system("cls");
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open ('172.30.96.19');
$telnet->waitfor('/Username:/i');
$telnet->print('admin');
$telnet->waitfor('/password:/i');
$telnet->print('*********');
$telnet->waitfor('/\login/i');
$telnet->print('tftp 172.30.100.5 put 3comoscfg.cfg BkGY_172_30_96_19.txt');
sleep(10);
$telnet->print ('exit'); ...