Perl

[perl]script sauvegarde, telnet

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [perl]script sauvegarde, telnet

parisien91

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

Publicité

parisien91

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

Code :

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 à 15:19:29

parisien91

UP!!! SVP

couak

Pour ta 1ère regex

Code :

if($Ligne =~ /(.*)\s(.*)\s(.*)\s(.*)/)

chez moi ca marche. Au vu de la regex, il y a de grandes chances que ton fichier d'entrée ne soit pas bon (ou au choix, que ta regex soit mal construite)
Exemple : si tu lui mets la ligne "SWO1 10.42.78.1 user1 mdp1" ca marche mais si tu lui mets la ligne "SWO1 10.42.78.1 user1 mdp1 " (note l'espace à la fin de la ligne) tu te retrouves dans la situation que tu as décrite.
Vu la simplicité de la ligne à parser, je te conseillerais plutôt d'utiliser la fonction split

Pour ton second problème (là où tu changes de regex) tu ne nous dis pas quel est le problème...

parisien91

salut couak,
merci de t'attardé sur mes PBs!

pour revenir au " if($Ligne =~ /(.*)\s(.*)\s(.*)\s(.*)/)", chez moi sa ne marche toujours pas!,il y a encore le pb mais je l'ai changé j'ai mis des ";" entre chaque colonnes comme sa plus de problemes et sa marche!!

le probleme maintenant etant a la connexion telnet!.............

couak

je sais pas si tu m'as lu (on dirait pas) mais je t'avais dis que ta regex était mal construite, change ta regex ou bien utilises la fonction split

pour ton problème de telnet, envoie ton code et tes problèmes et message d'erreur

parisien91

Si je t'es lu, mais tu appelle quoi 'regex' c'est que la 2eme fois que je fais un script perl... dsl...
la regex c'est ma condition if(....) c'est sa! Donc maintenant comme j'ai modifier mon fichier.txt avec des ";" et que sa marche je touche plus!!

tiens j'ai poster sur un autre forum
http://www.developpez.net/forums/d [...] iguration/

Merci d'avance

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

Code :

show running = 1

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

Message cité 1 fois

gilou

Modérateur
Modosaurus Rex

parisien91 a écrit :

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

Code :

show running = 1

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

Eh bien c'est clair: ca vient de ta ligne

parisien91 a écrit :

Code :

print "show running = @lines\n";

Qu'est-ce qui te fais dire que tu n'es pas connecté? au contraire, ca montre que tu l'es, puisque la commande my @lines = $telnet_session->print('show ru'); semble s'être executé correctement ce qui explique la valeur 1 de @lines (mais pour en être sur il faudrait avoir un objet scalaire et non un array pour recuperer la valeur de retour de $telnet_session->print d'apres la doc):

Citation :

print - write to object

$ok = $obj->print(@list);

This method writes @list followed by the output_record_separator to the open object and returns 1 if all data was successfully written.

A+,

Message édité par gilou le 17-01-2009 à 11:58:32

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻

parisien91

Merci beaucoup j'avais pas lu ce passage dans la doc!!
Mais comment faire pour lire le contenue de la variable ou du tableau??? parce que tout ce que j'essaye me renvoie 1...

j'espere gilou tu pourras encore m'aider!
merci!!!

Publicité

gilou

Modérateur
Modosaurus Rex

De quelle variable ou quel tableau parles tu ici?
Déja, si tu lisais la doc ca serait une bonne chose!
Tu veux faire quoi?
faire une commande 'show run' et en recuperer le retour?
Eh bien puisque c'est une commande, on utiluse une fonction qui envoie une commande.
C'est pourtant écrit noir sur blanc dans la doc de Net::Telnet

Citation :

cmd - issue command and retrieve output

my @lines = $telnet_session->cmd('show run');
A+,

Message édité par gilou le 19-01-2009 à 20:02:57

parisien91

je l'ai lu mais c'est en anglais donc je ne comprends pas tous... dsl
Et pour ce qui est de ma question c'est bon j'ai trouver ce midi!
J'ai pas utilisé cette commande moi!!

Mais merci quand meme!!

gilou

Modérateur
Modosaurus Rex

Programmer avec une librairie dont on ne comprend pas la doc, c'est plus de la programmation, c'est du vaudou.
A+,

FORUM HardWare.fr

Programmation

Perl

[perl]script sauvegarde, telnet

Sujets relatifs
Perl et cgi: problème de split	Petit script php complexe pour moi
script php urgent	Attendre le retour de Google Maps API avant de continuer le script
URL d'une page appelant un script	Vlinks - Nouveau script annuaire (PHP/Mysql)
[SCRIPT] recuperer les logs d ouverture de session	Script enregistrement webcam
Problème avec condition dans script batch	petit probleme avec un script css
Plus de sujets relatifs à : [perl]script sauvegarde, telnet

Page générée en 0.088 secondes