Bonjour,

Là comme ça c'est pas évident de te répondre, ce qui est sur c'est qu'un simple if dans un foreach n'arretera jamais son exécution (sauf en cas de next / last / goto / return / etc...). Si tu pouvais mettre tout ton code (ou au moins la structure complète) ça serait déjà plus simple de voir ce qui ne va pas, parce que là y'a pas grand chose comme infos...
Essaye eventuellement de voir si le premier tableau que tu parcours contient bien plusieurs élements, on sait jamais^^

Voici mon code en entier :

foreach $linekmtn (@$KMTN)
{
      if ($linekmtn =~ /^\s\#(\d+)\#\s(\d.+)\s\{(\w.+)\}/)
     {
          $specie1 = $1;
          $val = $2;
          $compound = $3;
              
          foreach $k (sort keys %$SpecRef)
          {
                if ($specie1 eq $k)
                {
                     foreach $data (@$allfile)
                     {
                           if ($data =~ m/(\d+\.\d+\.\d+\.\d+)\t(\w.+)\t(\w.+)\tc\t/i)
                           {
                                 $valEC = $1;
                                 $NameReact = $2;
                                 $Equation = $3;
 
                                  if ($valEC eq $numEC)
                                 {
                                       chomp $data;
                                       $data =~(s/^\d+\.\d+\.\d+\.\d+\t\w.+\t\w.+\tc\t//gi);

                                       @t = split (/;/,$data);
                                                     
                                       foreach my $ligne (@t)
                                       {
                                            chomp $ligne;
                                            ($shortC,$nameC,$formulaC) = split (/\t/,$ligne);
                                             print "$valEC\n"."ligne :$nameC / $compound \n";
                                             if ($nameC eq $compound)
                                             {
                                                 print FIL ("\n KM : $specie1 $compound$val");                          
                                             }
                                        }
                                   }
                             }
                        }
                 }
             }
      }
}

Bonjour

As-tu essaye de declarer tes tableaux avant ta serie de foreach() ?

David

A priori je ne vois rien de choquant.

Question, tu utilises use strict; et use warnings; ? Si ce n'est pas le cas, il est possible que ton programme comporte un bug qui n'entraine pas d'affichage d'erreur, mais met un terme à l'exécution (mauvaise valeur dans une de tes variables par exemple).

Biensur que j'utilise un use strict et use warnings mais il ne me signale pas d'erreur. J'ai ausssi déclarer mes tableaux pas de souci. En faite j'ai reglé mon probleme : j'ai utilisé next if au lieu de if. et comme je remplace mon debut de ligne "data" par rien : j'ai ajouté une autre variable $da2 pour que la valeur de $data soit gardée en memoire.

chomp $data;
$da2 = $data;
$da2 =~ (s/^\d+\.\d+\.\d+\.\d+\t\w.+\t\w.+\tc\t//gi);
@t = split (/;/,$da2);

Cependant comme avant j'avais mis un if je voulais aussi ajouté un elsif qui ne marche plus si je met next if - donc j'ai fermé le foreach et réouvert. Pas très propre mais ca marche .
Merci.