Probleme de declaration de variable
Bonjour,
voci le bout de code qui me pose problème :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| if ($check =~ /start/) {
my @check=split (/ /,$check);
#print "$check \n";
#print "$check[4] \n";
my $time_start=$check[13];
my $date_start=$check[12];
#print "FLAG Hour_start : $time_start\n";
#print "FLAG Date_start : $date_start\n"
(my $hour_start, my $min_start) = split/:/,$time_start;
(my $mon_start, my $day_start) = split/\//,$date_start;
#print "FLAG mon_start: $mon_start\n";
#print "FLAG day_start : $day_start\n";
my $minuts_use=($hour_start*60)+$min_start;
#print "valeur des minutes occupation $minuts_use \n";
my $time=$local_min-$minuts_use;
if ( $time >= 30 ) { |
En effet, j'ai l'erreur suivante :
Code:
1
2
3
| "my" variable $time_start masks earlier declaration in same scope at ./Monitor.pl line 54.
syntax error at ./Monitor..pl line 54, near "("
Execution of ./Monitor.pl aborted due to compilation errors. |
Ce que je ne comprend pas c'est la ligne 54 est la celle ci :
Code:
(my $hour_start, my $min_start) = split/:/,$time_start;
L'erreur dit vrai car $time_start est déclarée plus haut mais je ne pense pas qu'il faut la declaré un deuxième fois, ou est ce l'expression (my $hour_start, my $min_start) qui pose problème. Si je commente toutes la ligne 54 et après le scirpt fonctionne donc $time_star n'est pas vide ....
Merci de votre aide....
