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 29 30 31
|
foreach my $Enumerateur ( split( ',', $ContenuBloc ) )
{
my ($Nomvariable, $test ) = split('=', $Enumerateur);
# si la valeur existe, on l'incremente, sinon on la met à 0 >pourquoi? :s
if (defined $test)
{
# On vérifie qu'il est present dans define ou non
if (defined $VariableDefine{$test})
{
$test = $VariableDefine{$test};
$Valeur = List::Util::max($Valeur,$test)+1;
}
else
{
$Valeur ++;
}
}
else
{
if ( my @Values = values %Constante )
{
$Valeur = List::Util::max( @Values ) + 1;
}
$test = $Valeur;
$Valeur++;
}
$Constante{$Nomvariable} = $test;
} |
Partager