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";
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>
TStanley
--------
People sleep peaceably in their beds at night only because rough men stand ready to do violence on their behalf. -- George Orwell
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|