#!/usr/local/bin/perl -w use Net::Telnet; $uID = "uname"; $uPASS = "pwd"; $telnet = new Net::Telnet ( Timeout=>20, Errmode=>'die', Prompt => '/\$ $/i'); $telnet->open('hpsgncw.sgp.hp.com'); $telnet->login($uID, $uPASS); print $telnet->cmd('manage'); print $telnet->cmd('exec manage'); print $telnet->cmd('show mcc 0');
In reply to Telnet Connection by monskie
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |