We don't bite newbies here... much | |
PerlMonks |
Re^2: Telnet Issueby jag (Initiate) |
on Sep 03, 2009 at 18:33 UTC ( [id://793267]=note: 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 Section
Seekers of Perl Wisdom
|
|