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