Bonjour,

je veux réaliser un script qui se connecte a mes switchs en telnet et qui backup les configs de chacuns sur mon serveur tftp.

J'aurais besoin de vous pour m'aider a utiliser le module net::telnet

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
#!/usr/bin/perl
 
# strict demande de definir les variables
use strict;
# warnings permet d'avoir des messages d'erreurs
use warnings;
# Module pour la connection Telnet
use Net::Telnet qw(TELOPT_TTYPE); #qw(TELOPT_TTYPE) sert a quoi???
use IO::Handle;    # a quoi sa sert sa??? je l'ai mis parceque j'ai un modele
 
 
sub connexion
{
    my $switch_ip = X.X.X.X; # je met juste ca comme j'ai pas mis de MDP ni login
    my $switch_port = 12; # je  met le n° port sur lequel je suis brancher
    my $telnet_session = new Net::Telnet (
                                         'Host' => $switch_ip,
                                         'Port' => $switch_port,
                                         'Errmode' => 'return',
                                         'Timeout' => 20,);
}
Je pensais que cette fonction etait bonne mais non, rien ... meme pas un message d'erreur...


Merci de m'éclairer