bonjour,
J'ai un problème j'utilise une fonction 'connexion', je l'appel une 1er fois pour me connecter a un 1er switch a moiter de cette fonction j'appelle une autre fonction sub 'ip' qui me donne une adresse ip, avec cette adresse ip je dois parcourir un tableau pour trouver toutes les infos pour me connecter sur ce switch et donc je rappel la fonction 'connexion' mais PROBLEME!!!
sub connexion
{
&ip(...)
}
sub ip($$)
{
parcours mon fichier data.txt ou toutes les infos de connexions
if ip est dans le fichier
{
prendre toutes les autres infos qui vont avec
&connexion(infos...)
}
}
mais sa ne marche pas parcequ'il veux toujours me connecter a tous les autres ip du fichier data.txt...
Comment je peux faire?? merci d'avance!!!
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 sub ip { my ($switch_name,$switch_ip,$user_login,$user_password); my $x; for ($x=0; $x < @switchs_database; $x++) { $switch_name = $switchs_database[$x]->[0]; $switch_ip = $switchs_database[$x]->[1]; $user_login = $switchs_database[$x]->[2]; $user_password = $switchs_database[$x]->[3]; if ( $switch_ip eq $adIP ) { print $switch_ip."\n"; print ("$switch_name,$switch_ip,$user_login,$user_password\n"); &connexion($switch_name,$switch_ip,$user_login,$user_password); # PB la il me connecte a tous les switchs meme avec la boucle IF que j'ai mis avec l'@ IP... return $switch_ip; } } }
Partager