Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re^2: connect to a remote ip

by chennaiite (Sexton)
on Aug 19, 2005 at 05:30 UTC ( #485021=note: print w/replies, xml ) Need Help??

in reply to Re: connect to a remote ip
in thread Reaped: connect to a remote ip

Use Net::Telnet;
print "Enter IP";
my $var=<STDIN>;
chomp $var;
print "Enter User";
my $user=<STDIN>;
chomp $user;
print "Enter Password";
my $pass=<STDIN>;
chomp $pass;
#$telnet = new Net::Telnet->new( Timeout=>100,Prompt => '/\$%#> $/');
$telnet = new Net::Telnet->new( Timeout=>100 );
#SAMPLE copy
$telnet->cmd("echo $1 > file");
This is my script but not fullfill my task...
I will be giving the ip address, username and passward.
After connecting i will be update an winnt file...
Then logoff,thats all,After that i will doing some other manipulation in local.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://485021]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2018-01-22 13:05 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (233 votes). Check out past polls.