Se connecter / S'enregistrer
Votre question

Scrip perl pour sauvegarde

Tags :
  • Perl
  • Programmation
Dernière réponse : dans Programmation
14 Janvier 2009 11:42:57

Bonjour,

J'ai un script à réaliser pour mon entreprise!
Ce script aura pour but de se connecter sur mes switchs en telnet (utilisation du module net::telnet), et de faire une copie de la configuration des switchs, le tout sera envoyé ver mon serveur TFTP! Pour les connections aux switchs j'ai un fichier .txt avec sur la meme ligne le :
  1. nom ip login mdp


Donc le contenue je le remet dans un tableau pour pouvoir les réutiliser!
Donc j'ai encore quelques problèmes pour faire les séparations sinon sa marche!!
  1. my $base;
  2. $base= "/script_backup/database_switch.txt";
  3.  
  4. open (BASE,"$base") or die "can't open file\n";
  5. my $Ligne;
  6. my @tab;
  7.  
  8. while ($Ligne=<BASE>)
  9. {
  10. my ($nom, $ip, $login, $mdp);
  11.  
  12. # print $Ligne."\n";
  13. # Condition en expression reguliere d'une ligne du fichier txt sous la forme
  14. # nom ip login mdp
  15. if($Ligne =~ /(.*)\s(.*)\s(.*)\s(.*)/) # J'ai un PB ici je pense! ne diserne pas l'espace entre le nom et IP........
  16. {
  17. push @tab, $1, $2, $3, $4;
  18.  
  19. $nom = $1;
  20. $ip = $2;
  21. $login = $3;
  22. $mdp = $4;
  23.  
  24. print ("nom=$nom\n"); # test
  25. print ("ip=$ip\n"); # test
  26. print ("login=$login\n"); # test
  27. print ("mdp=$mdp\n"); # test
  28. # print ("$nom $ip $login $mdp"); # test
  29. }
  30. else
  31. {
  32. print("Erreur lecture de ligne : $.\n");
  33. }
  34. }
  35. close (BASE);

Le probleme ici etant que je resors pas dans le bonne ordre le contenue du tableau
j'obtiens pour la 1er ligne:
  1. nom=SWO1 10.42.78.1
  2. ip=user1
  3. login=mdp1
  4. mdp=



Mais le gros problème c'est la connexion en telnet...donc j'aurais besoin de vous pour m'aider!!
  1. #!/usr/bin/perl
  2.  
  3. # strict demande de definir les variables
  4. use strict;
  5. # warnings permet d'avoir des messages d'erreurs
  6. use warnings;
  7. # Module pour la connection Telnet
  8. use Net::Telnet qw(TELOPT_TTYPE); #qw(TELOPT_TTYPE) sert a quoi???
  9. use IO::Handle; # a quoi sa sert sa??? je l'ai mis parceque j'ai un modele
  10.  
  11.  
  12.  
  13. my $switch_ip ='X.X.X.X'; # je met juste ca comme j'ai pas mis de MDP ni login
  14. my $switch_port = 12; # je met le n° port sur lequel je suis brancher
  15. my $telnet_session = new Net::Telnet (
  16. 'Host' => $switch_ip,
  17. 'Port' => $switch_port,
  18. 'Errmode' => 'return',
  19. 'Timeout' => 20,);


Normalement juste ca devrait me connecter au switch non??

Merci de m'aider!!!!!!!!!!!!!!!!!!!!

Autres pages sur : scrip perl sauvegarde

14 Janvier 2009 12:50:14

Re j'ai modfier mon fichier .txt pour ne plus avoir de pB au niveau du tableau!

parisien91 a dit :

while ($Ligne=<BASE>)
{
my ($nom, $ip, $login, $mdp);

# print $Ligne."\n";
# Condition en expression reguliere d'une ligne du fichier txt sous la forme
# nom;ip;login;mdp;
if($Ligne =~ /(.*);(.*);(.*);(.*);/) # j'ai modifier ici parcequ'avec les espaces j'avais un décalage donc j'ai mis de ";"

{
push @tab, $1, $2, $3, $4;



UPPP
Merci de m'aider!!!!!!
15 Janvier 2009 11:52:22

UP!!

Mes gros problemes viennent de la connexion telnet!! quelqu'un peut m'aider??

merci
Contenus similaires
Pas de réponse à votre question ? Demandez !
16 Janvier 2009 15:03:02

bonjour,
J'ai encore un peu avancé mais je suis vraiment bloqué!!

  1. my $switch_ip = $ip;
  2. my $user_login = $login;
  3. my $user_password = $mdp;
  4. my $switch_port = 23;
  5.  
  6. my $telnet_session;
  7. $telnet_session= new Net::Telnet (
  8. 'Errmode' => 'return',
  9. 'Timeout' => 30,
  10. );
  11. if (not defined $telnet_session)
  12. {
  13. &print_error("Connect Telnet Session - IP: $switch_ip PORT: $switch_port\n");
  14. return (1);
  15. }
  16.  
  17. ## Fonction necessaire a net::telnet
  18. $telnet_session->option_callback(\&opt_callback);
  19. $telnet_session->option_accept('Do' => TELOPT_TTYPE);
  20. $telnet_session->suboption_callback(\&subopt_callback);
  21.  
  22.  
  23. $telnet_session->open('Timeout' => 5, 'Errmode' => 'return', 'Host' => $switch_ip, 'Port' => $switch_port) or die "conn\
  24. exion au switch $switch_ip echoue\n";
  25. sleep 1;
  26.  
  27. my @lines = $telnet_session->print('show ru');
  28. print "show running = @lines\n";


Comme j'avais pas de messages d'erreurs pour la connexion, j'ai fais un test avec une commande show sur le switch sauf que je recoit pas de messages d'erreur mais
  1. show running = 1


donc comment faire?? d'ou cela peux venir???
19 Janvier 2009 14:34:31

C'est bon le 1 signifie que tous c'est bien passé!
5 Avril 2009 12:39:10

Tu te fais un topic en monologue? :D 
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS