Tom's Guide > Forum > Programmation > Scrip perl pour sauvegarde

Scrip perl pour sauvegarde

Forum Programmation : Scrip perl pour sauvegarde

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !

Créer un nouveau sujet Répondre

Bas de page Chercher dans ce sujet

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 :

Code :

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

Code :

my $base;
$base= "/script_backup/database_switch.txt";
open (BASE,"$base" ) or die "can't open file\n";
my $Ligne;
my @tab;
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 =~ /(.*)\s(.*)\s(.*)\s(.*)/) # J'ai un PB ici je pense! ne diserne pas l'espace entre le nom et IP........
{
push @tab, $1, $2, $3, $4;
$nom = $1;
$ip = $2;
$login = $3;
$mdp = $4;
print ("nom=$nom\n" ); # test
print ("ip=$ip\n" ); # test
print ("login=$login\n" ); # test
print ("mdp=$mdp\n" ); # test
# print ("$nom $ip $login $mdp" ); # test
}
else
{
print("Erreur lecture de ligne : $.\n" );
}
}
close (BASE);

Le probleme ici etant que je resors pas dans le bonne ordre le contenue du tableau
j'obtiens pour la 1er ligne:

Code :

nom=SWO1 10.42.78.1
ip=user1
login=mdp1
mdp=

Mais le gros problème c'est la connexion en telnet...donc j'aurais besoin de vous pour m'aider!!

Code :

#!/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
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,);

Normalement juste ca devrait me connecter au switch non??

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

Message cité 1 fois

Répondre

Inscrivez-vous ou connectez-vous pour masquer ceci.

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

parisien91 a écrit :

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

Message édité par parisien91 le 14-01-2009 à 12:51:53

Répondre à parisien91

UP!!

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

merci

Répondre à parisien91

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

Code :

my $switch_ip = $ip;
my $user_login = $login;
my $user_password = $mdp;
my $switch_port = 23;
my $telnet_session;
$telnet_session= new Net::Telnet (
'Errmode' => 'return',
'Timeout' => 30,
);
if (not defined $telnet_session)
{
&print_error("Connect Telnet Session - IP: $switch_ip PORT: $switch_port\n" );
return (1);
}
## Fonction necessaire a net::telnet
$telnet_session->option_callback(\&opt_callback);
$telnet_session->option_accept('Do' => TELOPT_TTYPE);
$telnet_session->suboption_callback(\&subopt_callback);
$telnet_session->open('Timeout' => 5, 'Errmode' => 'return', 'Host' => $switch_ip, 'Port' => $switch_port) or die "conn\
exion au switch $switch_ip echoue\n";
sleep 1;
my @lines = $telnet_session->print('show ru');
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

Code :

show running = 1

donc comment faire?? d'ou cela peux venir???

Message édité par parisien91 le 16-01-2009 à 15:03:42

Répondre à parisien91

C'est bon le 1 signifie que tous c'est bien passé!

Répondre à parisien91

Tu te fais un topic en monologue?

Répondre à Kharec

Créer un nouveau sujet Répondre

Tom's Guide > Forum > Programmation > Scrip perl pour sauvegarde

Aller à :

Aide |
Règles du forum

Il y a 2213 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Page générée en 0,399 secondes

Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler

Liens