Discussion :

[georges86]

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

[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.

[aazdoud]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philou67430]

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

[michon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...