script PERL sur Routeur Cisco

Version imprimable

01/06/2010, 17h07
georges86

script PERL sur Routeur Cisco

salut.je suis Nouveau sur PERL. Je voudrais savoir s'il est possible d'écrire un script PERL qui fonctionne sous un routeur CISCO.en fait je voudrais redemarrer mon routeur à une heure précise chaque jour en PERL.
Pardon j'ai vraiment besoin d'aide urgente...

Merci
08/06/2010, 22h52
thierry.chich

C'est possible en ssh (via Net::SSH::Perl) ou peut-être avec Net::Telnet. Par contre, un routeur cisco ne sait pas faire tourner un interpreteur perl.

Bonjour,

Je pense que c'est possible en utilisant le script perl :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use Net::Telnet::Cisco;
 
 
  my $session = Net::Telnet::Cisco->new(Host => '123.123.123.123');
  $session->login('login', 'password');
 
 
  # Execute a command
  my @output = $session->cmd('show version');
  print @output;
 
 
  # Enable mode
  if ($session->enable("enable_password") ) {
      @output = $session->cmd('show privilege');
      print "My privileges: @output\n";
  } else {
      warn "Can't enable: " . $session->errmsg;
  }
 
 
  $session->close;

je n'arrive pas à le mettre en place, si vous avez une idée merci de faire un retour.

Merci.

29/07/2010, 11h45
Philou67430

Je ne sais pas si cela peut aider, mais il existe ce module : Cisco::Conf.

Si vous souhaitez interroger un périphérique cisco, un module très bien est Net::SSH::Expect

Le Telnet... à réserver pour les test car non sécurisé.

Si cela t'intéresse, un petit tour dans les sources PERL et tu verras un joli code source pour te connecter en SSH sur ton cisco et y faire ce que bon te semble :

http://perl.developpez.com/sources/?...tion2#SSHCisco

Sinon pour le Telnet, j'avais ceci de fonctionnel sur un switch cisco catalyst 2960:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 #! /usr/bin/perl use Net::Telnet::Cisco; use strict; #read host ip from command line my $host = $ARGV[0]; my $username = $ARGV[1]; my $password = $ARGV[2]; my $enable_password = $ARGV[3]; #connection to the host my $session = Net::Telnet::Cisco->new(Host => $host); $session->login($username,$password); #execute command on the host and keep result my @output=""; if($session->enable($enable_password)){ @output = $session->cmd('show version'); } $session->close; print @output;
Pour des test OK... mais sinon je te recommande tout de même le SSH...