jessemoore wrote:
Hello Jon,
Thank you for the swift reply, much appreciated.........
I've cobbled this together, does this seem right to you? I am a bit of a perl novice but know enough to get by on msot things. Using perl to telnet commands a new one to me.......
$-0 = $ARGV[0];
$-1 = $ARGV[1];
$-2 = $ARGV[2];
;host = hostname of router
;login = 'user', 'password
$ARGV[0]
#! c:/perl/bin/perl.exe -slw
use strict;
use Net::Telnet();
use Net::Telnet::Cisco;
my $session = Net::Telnet::Cisco->new(Host => 'router');
$session->login('root', 'password');
config t
ip route 192.168.1.209 255.255.255.255 131.X.X.109
quit
$ARGV[1]
#! c:/perl/bin/perl.exe -slw
use strict;
use Net::Telnet();
use Net::Telnet::Cisco;
my $session = Net::Telnet::Cisco->new(Host => 'router');
$session->login('root', 'secret');
config t
ip route 192.168.1.209 255.255.255.255 131.X.X.107
quit
$ARGV[2];
#! c:/perl/bin/perl.exe -slw
use strict;
use Net::Telnet();
use Net::Telnet::Cisco;
my $session = Net::Telnet::Cisco->new(Host => 'router');
$session->login('root', 'secret');
config t
ip route 192.168.1.209 255.255.255.255 131.X.X.106
quit
Does that seem right to you?
Kind Regards,
Jesse Moore
Jesse
It's been a while since i did Perl but a couple of things -
1) Use a separate file for the username/password and make sure that file is only readable by you. If you ever need to print off the script or share it, the last thing you want are the router logon credentials in clear text.
2) From memory when you create a new session ie.
my $session = Net::Telnet::Cisco->new(Host => 'router');
you then need to use that object for all subsequent interactions. So you use it correctly here -
$session->login('root', 'secret');but then you just enter IOS commands which i don't think you can do. You would need to do for example
$session->enable("password");
$session->cmd("command string");
etc.
Note the syntax above may need modifying, like i say it's been a while.
The best thing to do is read the man page that comes with the Net::Telnet::Cisco module which has some example in it as to how to login, go ot enable mode and then execute commands.
Also note, that in the above unless when you login you go straight to enable mode then you are missing a step ie. you login then enter config t but you haven't gone into enable mode. This is where these things shine ie. after each command you can check the return value to see if it worked or not, or in the case of Expect you can check the IOS output. So you would see that you had missed a step.
It can be quite time consuming at first but once you have worked out the basics you then have a template you can use time and again.
Jon
