Discussion :

[dubis]

Bonjour,

J'ai un script qui fonctionne mais il a un message d'erreur que je ne comprend pas :
Use of uninitialized value in addition (+) at ./test.pl line 44.

Voici l'extrait avec la boucle qui contient la ligne 44 :

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
23
24
25
26
27
28
 
#!/usr/bin/perl
use warnings;
use strict;
#temps local :
(my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) =localtime(time);
$year += 1900;
my $local_min=$hour*60+$min;
print "local minutes : $local_min\n";
 
 
../...
 
foreach my $check  (@command) {
                if ($check =~ /start/) { 
                        my @check=split (/ /,$check);
                        my $hour_lic=$check[13];
                        #print "$hour_lic\n";
                        my @hour_lic=split(/:/,$hour);
                        chomp @hour_lic;
                        #print "$hour_lic[1] $hour_lic[2]\n"; 
                        my $minuts_lic=$hour_lic[0]*60+$hour_lic[1];
                        print "valeur des minutes occupation $minuts_lic \n"; 
                        my $time=$local_min-$minuts_lic;
                        if ( $time >= 15 ) {
                        print " La licence $feat est bloquee depuis plus de $time minutes\n"
                        }
                }

J'ai bien la valeurs $minuts_lic donc le calcul de la ligne 44 qui est : my $minuts_lic=$hour_lic[0]*60+$hour_lic[1]; fonctionne bien ............

Faut-il charger un nouveau scalaire pour les 2 termes de l'addition??? Le soucis c'est que je n'ai pas de message d'erreur pour l'addition suivante :
my $local_min=$hour*60+$min;
Merci de votre aide

[dubis]

Je pensais que de mettre de parenthèse avait résolu le problème

Code :

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

my $minuts_lic=($hour_lic[0]*60)+$hour_lic[1];

Mais ce n'est pas le cas le message est toujours là ....

./test.pl
Use of uninitialized value in addition (+) at ./test.pl line 44.
valeur des minutes occupation 960
La licence calinteractive est bloquee depuis plus de 48 minutes
Use of uninitialized value in addition (+) at ./test.pl line 44.
valeur des minutes occupation 960
La licence calinteractive est bloquee depuis plus de 48 minutes

[Philou67430]

Pour te répondre, il faudrait que tu pointes la ligne 44. Sache néanmoins que dans cette ligne, une des valeurs mise en jeu dans une addition numérique est "undef".

[Mr6]

Salut !

Code :

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

Use of uninitialized value in addition (+) at ./test.pl line 44.

Comme l'indique l'erreur, il y a une valeur non initialisée dans ton addition. Le fait d'avoir 960 comme résultat me fait dire qu'il s'agit de $hour_lic[1] puisque 960/60 = 16 tout pile, donc $hour_lic[0] renvoie 16 et $hour_lic[1] est vide. Que donne un print de ces 2 éléments ?
Si c'est bien ca, il faut assigner une valeur à ton élément, pour l'initialiser et faire disparaitre le message d'erreur (pour pousser le bouchon on pourrait même dire que les éléments devraient faire l'objet d'un test afin de générer une erreur spécifique sur un problème de valorisation, mais ca c'est pour de la production )

@+
Mr6

[dubis]

Philou la ligne 44 est la suivante :

Code :

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

my $minuts_lic=($hour_lic[0]*60)+$hour_lic[1];

et pour répondre à Mr6

Comment assigner un valeur $hour_lic[0] et $hour_lic[1] puisque ces scalaires sortent du tableau @hour_lic ?
J'ai rajouté

Code :

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

 my @hour_lic=0;

sans changement

Merci de votre aide

[Mr6]

Code :

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

1
2
3
4
5
my $hour_lic=0;
my $min_lic=0;
($hour_lic, $min_lic) = split/:/,$hour;
 
my $minuts_lic=($hour_lic*60)+$min_lic;

Ca devrait le faire

@+
Mr6

[Philou67430]

A priori, ça ne devrait pas changé grand chose. Avant de faire le split de $hour, pourrais-tu l'afficher afin de vérifier s'il contient bien un ":" ?