Hi,

I'd like to know wether it's possible to execute a script in perl that allows you to log in on a machine, and gives you back control.

exemple :
I often have to do this
$ telnet computer
login : my_login # i enter my login
password : my_password # i enter my password
machine$ls #Now that i'm loggued in i want to sent commands manually such as ls.

And i'd like this to be replaced by
$script_login.pl computer

I'm learning perl at the moment but i don't know the trick so the the script gives me back hand while i'm on the remote machine.
Any detailled help particularly on this part will be very appreciated.

Cheers

Net::Telnet, version 3.01

Copyright (c) 1997 Jay Rogers. All rights reserved. This program
is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.


What's In It For You
--------------------

. You'd like to communicate with another host or device via a
TELNET port and you'd like some specialized routines to help you
login and do other interactive things.

. You're not familiar with sockets and you want a simple way to
make client connections to TCP services.

. You want to be able to specify your own time-out while
connecting, reading, and writing.

. You're communicating with an interactive program at the other
end of some socket or pipe and you want to wait for certain
patterns to appear.

--------------------------------------------------------------------------
http://www.perl.com/CPAN-local/modules/by-module/Net/

Never tried it my self.

Question 1
Yes i'm actually using net::telnet::cisco, but didn't find the way to do what i want, that's the purpose of my question.

Question 2
I've got fields

field1 field2 field3 field4 field5 field6

I have this in an array @myfields

I know i can use split but i just want the field2 and field6
($field2, field6) = split (/a_smart_regex/, $_) ;
My problem is that i don't find how to write my a_smart_regex

Any Idea ?

Cheers