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.
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