Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

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 imbibing at the Monastery: (3)
As of 2017-06-26 23:43 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (595 votes). Check out past polls.