http://qs1969.pair.com?node_id=793267


in reply to Re: Telnet Issue
in thread Telnet Issue

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.