Discussion :

[ciols]

Bonjour,

J'ai des erreurs que je n'arrive pas à corriger mais je pense qu'il n'y en a qu'une qui fait que ça bloque.

Use of uninitialized value in concatenation (.) or string at ./test.pl line 205.
Use of uninitialized value in concatenation (.) or string at ./test.pl line 206.
Use of uninitialized value in addition (+) at ./test.pl line 236.

Voici le code en rapport avec cette erreur :

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
 
my $succAttach = 0;
my $unsuccAttach = 0;
my $cc7a15 = 0;
my $succPdp = 0;
my $attPdp = 0;
my $cc27a32 = 0;
my $attServ = 0;
my $unsuccServ = 0;
 
        for (my $j = 0 ; $j < scalar(@tableResEricsson) ; $j++)
        {
                my $sAE = $dbh->prepare('SELECT SUM(valeur) as succattach FROM '.$tableResEricsson[$j].'_SGSN_'.$tableSem[$i].'_A2014 WHERE date_heure BETWEEN (\''.$tableLun[$i].'\' AND \''.$tableDim[$i].'\') AND ID_indicateur = '.$indicateursEricsson[$cpt].'') or print "erreur de prep SQL !!!!!!\n";
                $res = $sAE->execute() or die "Could not execute SQL statement... maybe invalid ?";
                my $succAtt; $cpt++;
                while (my @succAtt = $sAE->fetchrow_array()) { $succAttach = $succAtt[0]; print("\n".$succAtt[0]."\n");} //ligne 205
                print("SUCCATTACH ====> ".$succAttach); //ligne 206
 
 $succAttachEricsson += $succAttach; //ligne 236

Si vous avez une idée de comment faire pour rémdier au problème je suis preneur... Mes requêtes sont justes (du moins en principe).

[Lolo78]

Pour les lignes 206 et 236 c'est probablement parce que la variable $succAttach n'est pas définie.

Et c'est sans doute dû au fait que l'élément $succAtt[0] du tableau @succAtt, sans doute parce que ta requête SQL te renvoie dans certains cas des valeurs vides.

Les bouts de code fragmentaires que tu donnes ne permettent pas d'en dire beaucoup plus. La seule bonne manière d'éviter ce warning est de tester si les valeurs renvoyées sont définies (avec la fonction defined) et d'adapter ton code à cette situation quand ce n'est pas le cas. Un truc de ce genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
if (defined $succAtt[0] ) {
    # ton code actuel
} else {
    # code de gestion de ce cas particulier
}

[ciols]

Tout d'abord merci pour ta réponse, elle m'a permit d'éclaicir le problème.

L'erreur était dûe aux la requêtes :
- SELECT ... WHERE (date_heure BETWEEN date1 AND date2)
et non
- SELECT ... WHERE date_heure BETWEEN (date1 AND date2)

Un autre problème se pose. Chaque table correspond à un équipement et chaque équipement n'a pas été mis en prod en même temps ce qui fait que pour une semaine donnée certaines tables n'existent pas.

Y'a t'il un moyen plus "simple" que de le faire cas par cas cad :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if ($semaine < 10 && $annee == 2014 && $nomEquip == equip1)
{
       // valeurs = 0
}

J'espère avoir été assez clair ^^'

[Lolo78]

J'espère avoir été assez clair ^^'

Euh... pas vraiment...

J'ai du mal à comprendre comment certaines tables n'existent pas pour une certaine semaine. Tu as des tables différentes pour chaque semaine? Ou tu veux dire qu'il n'y a pas d'enregistrement dans certaines tables pour une semaine donnée?

[ciols]

Alors pour faire simple. J'ai une table/équipement/semaine.

J'ai besoin de calculer une valeur chaque semaine en prenant en compte toutes les tables de tous les équipements sur chaque semaine. Voici un exemple :

J'ai des équipements (a,b,c) qui possèdent des tables depuis S01 jusqu'à S26 (semaine courante -1), d'autres (c,d) qui ont des tables de S10 -> S26, d'autres (e,f) encore de S01 -> 12...

Du coup jusqu'à la semaine de S01 à S12 il me faut a, b, c, e ,f + S10 S11 S12 de c et d et ainsi de suite

[Lolo78]

Il faut juste vérifier la présence d'enregistrement pour chaque semaine que tu traites, ou vérifier que la variable dans laquelle tu récupères les données est bien définie, avec le type de code que je t'ai déjà montré:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
if (defined $succAtt[0] ) {
    # ton code actuel
} else {
    # code de gestion de ce cas particulier
}

[Jedai]

Un point de détail sur la lisibilité de ton code : tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
my $sAE = $dbh->prepare('SELECT SUM(valeur) as succattach FROM '.$tableResEricsson[$j].'_SGSN_'.$tableSem[$i].'_A2014 WHERE date_heure BETWEEN (\''.$tableLun[$i].'\' AND \''.$tableDim[$i].'\') AND ID_indicateur = '.$indicateursEricsson[$cpt].'') or print "erreur de prep SQL !!!!!!\n";
$res = $sAE->execute() or die "Could not execute SQL statement... maybe invalid ?";

Ce code est très peu lisible, tu pourrais nettement améliorer les chose en écrivant plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my $tableName = $tableResEricsson[$j] . '_SGSN_' . $tableSem[$i] . '_A2014';
my $sAE = $dbh->prepare( "SELECT SUM(valeur) as succattach FROM $tableName WHERE (date_heure BETWEEN ? AND ?) AND ID_indicateur = ?" ) 
    or print "erreur de prep SQL !!!!!!\n";
$res = $sAE->execute( $tableLun[$i], $tableDim[$i], $indicateursEricsson[$cpt] )
    or die "Could not execute SQL statement... maybe invalid ?";

La requête est plus lisible, sa structure plus évidente (ce qui peut aider pour les erreurs de syntaxe SQL comme ici), les insertions de scalaires sont plus robustes (aucun risque d'injection, même si cela ne semble pas une préoccupation dans ton cas) et la gestion d'erreur est directement lisible plutôt que d'être cachée au bout d'une ligne trop longue (ce qui d'ailleurs amène à s'interroger sur l'intérêt de mettre un "or print" pour le prepare() alors qu'un échec fera forcément échouer le execute() et donc va mourir avec un message d'erreur à la mauvaise ligne).

--
Jedaï

[ciols]

Merci beaucoup pour ces différents conseils. Je vous tiens au courant de l'avancée.

EDIT : J'ai une erreur qui concerne les tables qui n'existent pas en base.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
my $tabName = $tableResCisco[$j].'_SGSN_'.$tableSem[$i].'_A2014';
 
		if (defined $tabName)
		{
                          // execution normale
                }

J'ai pas mis de else parce que si la table n'existe pas on fait rien et on passe à l'équipement suivant.

Cependant ça ne marche pas, le debug me dit juste que la table n'existe pas.

Une idée ?

[Lolo78]

Une fois que tu as fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $tabName = $tableResCisco[$j].'_SGSN_'.$tableSem[$i].'_A2014';

la variable $tabName est définie dans le programme Perl.

Ce qu'il faut faire, c'est vérifier si la table existe dans la base.

[ciols]

Pour vérifier que la table existe j'ai rentré toutes les tables dans un @ et j'utilise ce bout de code pour vérifier si chaque table est bien en base.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
my $tt = $tableResCisco[$j].'_SGSN_'.$tableSem[$i].'_A2014';
		my $found = grep $_ eq $tt, @tablesData;
		my $tabName;
 
		if ($found)
		{
			$tabName = $tableResCisco[$j].'_SGSN_'.$tableSem[$i].'_A2014';	
		}
		else
		{
			print "La table n'est pas dans la base";
		}

J'ai fais les tests avec des prints etc ça marche nickel.

Merci à vous deux pour votre aide !

Bonne fin de journée