Re: Using Net::Telnet

Here is some updated code:

#!C:\perl\bin\perl -w
use Net::Telnet;

my $NT = new Net::Telnet();

$NT->open('128.999.999.999'); #obviously not my IP 
my @out = $NT->cmd();
my @out1 = $NT->put('1\n');
my @out2 = $NT->put('password\n'); #obviously not the password

print "OUT: @out";
print "OUT1: @out1";
print "OUT2: @out2";
[download]

And here are the results of that code:

C:\Documents and Settings\toms\Desktop>perl isdn.pl
OUT: ADTRAN TSUIQ VER 333a  0464

Бй[2JБй[1;67HADTRAN TSUIQБй[2;65H(Telnet) EAST1Бй[1;32HTelnet Login Me
+nu

 Бй[3;1H______________________________________________________________
+__________
______Бй[5;1HБй[5;1H 1 - Local Login
 Бй[6;1H 2 - Remote Login
 Бй[7;1H 3 - Logout
 Бй[23;1H_____________________________________________________________
+__________
_______Бй[24;2HБй[KEnter Selection -OUT1: 1OUT2: 1
C:\Documents and Settings\toms\Desktop>
[download]

TStanley
--------
People sleep peaceably in their beds at night only because rough men stand ready to do violence on their behalf. -- George Orwell

Comment on Re: Using Net::Telnet Select or Download Code


There's more than one way to do things
	PerlMonks