Récupérer la sortie d'un module

Version imprimable

Bonjour,

Je suis en train de tenter de faire un script qui va scanner une série de serveur pour vérifier qu'ils sont bien en ligne et le cas échéant lancer une requête SQL pour récupérer des information.

Dans un premier temps le script tournais bien, il se connectait à tous les serveur les un après les autres et affichait correctement dans une page web mes résultats.

Le problème qui ce pose est lorsque l'un des serveurs ne réponds pas, en effet en cas d'échec de connexion au serveur le script s’arrête et ne vérifie pas les autres serveurs.

J'ai donc pensé écrire un petit module pour tester la connexion l'objectif est de récupérer la sortie du module pour voir si la connexion c'est bien passée ou pas. (ça n'a pas l'air très clair du coup je vais poster un petit exemple)

mon fichier pm ->
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 # --- fichier laoracle.pm --- package laoracle; my $i; my $dbh; my @code_site my $login = "login"; my $mdp = "password"; $code_site[1] = "site1"; $code_site[2] = "site2"; .... $code_site[20] = "site20"; sub connect { $i = @_; ($dbh = DBI->connect("dbi:Oracle:$code_site[$i]", $login, $mdp)) or die; } 1;
mon script ->
Code:

1 2 3 4 5 6 7 8 9 #!c:/Perl/bin/perl.exe use DBI; use laoracle; my $i; $i = 1; laoracle::connect($i);
Donc la j'ai bien la récupération de la variable $i dans mon module, il se connecte bien mais je ne sais pas comment récupérer le résultat de ma connexion dans mon script, en gros savoir si tout c'est bien passé ...

Si quelqu'un à une idée elle sera la bienvenue :)

Par avance, merci.

04/07/2011, 10h40
djibril

Citation:

Envoyé par vindkald

Le problème qui ce pose est lorsque l'un des serveurs ne réponds pas, en effet en cas d'échec de connexion au serveur le script s’arrête et ne vérifie pas les autres serveurs.

Comment effectues-tu le test de connexion au serveur ? C'est à ce niveau que tu dois sûrement effectuer une modification. Je suspecte un die à ce niveau. Peux-tu nous montrer le code qui effectue la connexion au serveur ?

La partie du script ou j'effectue le test sans module externe donne ça ->

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
while ($i < "20") {
@enr = ();
 
if ( !($dbh = DBI->connect("dbi:Oracle:$code_site[$i]", $login, $mdp)))
{
     $code_site[$i][1] = '<IMG src="ko.gif">';
     $code_site[$i][2] = '<FONT color="blue">N/A</FONT>';
     exit;
}else
{   $code_site[$i][1] = '<IMG src="ok.gif">';
     $requete = "SELECT * from table where status <>4";
     $sth = $dbh->prepare($requete);
     $sth->execute();
     $code_site[$i][2] = '<FONT color="green">Pas de fichier en erreur</FONT>';
 
while (@enr = $sth -> fetchrow_array) {
     $code_site[$i][2] = "<FONT color=\"red\">@enr\n</FONT>";
}
$sth -> finish;
$i++;
}
}

En copiant le code ici je me dis que finalement c'est le "exit" qui doit me mettre dedans ...

J'ai ré-indenté ton code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
while ( $i < 20 ) {
  @enr = ();
 
  if ( !( $dbh = DBI->connect( "dbi:Oracle:$code_site[$i]", $login, $mdp ) ) ) {
    $code_site[$i][1] = '<IMG src="ko.gif">';
    $code_site[$i][2] = '<FONT color="blue">N/A</FONT>';
    exit;
  }
  else {
    $code_site[$i][1] = '<IMG src="ok.gif">';
    $requete          = "SELECT * from table where status <>4";
    $sth              = $dbh->prepare($requete);
    $sth->execute();
    $code_site[$i][2] = '<FONT color="green">Pas de fichier en erreur</FONT>';
 
    while ( @enr = $sth->fetchrow_array ) {
      $code_site[$i][2] = "<FONT color=\"red\">@enr\n</FONT>";
    }
    $sth->finish;
    $i++;
  }
}

En effet, c'est le exit qui arrête le programme.

04/07/2011, 11h17
vindkald

J'ai fais une tentative sans le

Code:

exit;

avec un nom de serveur fictif, inévitablement je tombe sur une erreur TNS "l'adresse symbolique n'a pas pu être résolue" se qui est normal cependant ça arrête complètement le script, il n'est pas possible de faire en sorte que malgré l'erreur de connexion l'éxèctution continue ?
04/07/2011, 11h31
djibril
sans code complet, difficile d'avoir une vue globale de ton programme. Néanmoins, je suppute que tout se fait dans ton While, c'est ça ?

Si c'est le cas, Met une étiquette à ton While et fais un next.
Code:

1 2 3 4 5 GESTION_SERVEUR: while ( $i < 20 ) { #... next GESTION_SERVEUR; # au lieu d'exit }
04/07/2011, 11h41
vindkald

Merci beaucoup pour le coup de main c'est effectivement beaucoup plus pratique que ce que je m’apprêtais à faire.

Reste à trouver un moyen d'ajouter un état d'avancement sur le chargement de la page qui est asses long mais j'ai quelques pistes en ajax que je vais tester.

Encore merci !