bonjour j'ai besoin d'aide sur du perl et sgbd
voila je reprends un code qui existe déjà mais qui pour le moment envoie des mails d'alerte. à terme on m'a demandé qu'il n'y ait plus de mail mais que les infos soient récupérées et stockée dans une BDD
Je cherche à finaliser une requête qui ferait ceci
récupère les valeurs qui sont stockées dans le script et envoyées dans le mail
et fait:
tant que $Hostname est différent de vide
récupère les autres variables et insère les dans la bdd
et je veux une boucle while pour que le script boucle tant qu'il n'a pas de valeur $Hostname vide.
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 // format de sortie des infos qui sont envoyées ensuite par mail format STDOUT_TOP = @<<<<<<< Date, $Time @<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>> Hostname, Volume, Label, Size, Frees, Freep . format STDOUT = @<<<<<<<<<;@<<;@<<<<<<<<;@>>>>>>>;@>>>>>>;@>>>> $host, $Volume, $Label, $Size, $Frees, $Freep // requête tant que $host n'est pas vide boucle et insère les données lignes par lignes while (my $Host != ""){ $req->execute ($Time, $Host, $Volume...) or die "requete impossible"; }
Partager