Just another Perl shrine | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
I am reposting my code again as per your request.
I have commented the Net::Telnet Object. #!/usr/bin/perl -w print "Enter the hostname you want to connect? \n" ; $hostname = <>; $telnet = `telnet $hostname `; $telnet -> waitfor('/Username: $/i'); $telnet -> print('axiom'); $telnet -> waitfor('/Password: $/i'); $telnet -> print('axiom'); $telnet -> waitfor('/\$ $/i'); $telnet -> print('who'); $output = $telnet->waitfor('/\$ $/i'); print $output; Thanks for your response. In reply to Re^2: Telnet Issue
by jag
|
|