[Toulouse-pm] foreach

eric.vernichon.ev at borchers.fr eric.vernichon.ev at borchers.fr
Mon Jan 20 08:48:00 CST 2003


Pouvez vous me dire pourquoi lorsque je lance ce code ( dans un sub )
le  foreach my $choixtransport (@listeTransport) ne fait qu'un passage
même si @listeTransport contient plusieurs valeurs ( j'ai vérifié le contenu)



  my @listeTransport=$listbox->get(0,'end');
    foreach my $choixtransport (@listeTransport)
    {
     my @fichiers = glob ("s:\\trans\\cofiles\\*$choixtransport*");

     if (@fichiers eq 0 )
     {
         $listefic->insert("end","Le selection n\'existe pas ");
     }
     else
     {
     foreach my $fichier (@fichiers)
      {
        $ordre = substr($fichier,index($fichier,".")+1,3).substr($fichier,rindex
($fichier,"\\")+1,7);
        $listefic->insert("end","Ordre : $ordre \n \n");

        if ($ValueCopie == 1)
          {
            (my @fichier)= split(/\\/,$fichier);
            ($fichier) = split(/\./,pop(@fichier));
            $fichier = substr($fichier,1);
            copie($fichier);
          }

        if ($ValueAddToBuff == 1)
                {
                  addtobuffer($ordre);
                }
        if ($ValueTransporte == 1)
          {
            importe ($ordre);
          }

      }
      }
     $listefic->insert("");
    }



Soyez indulgent sur la qualité du code je débute en perl


Merci



Eric Vernichon
-------------------------------------------------------------
Borchers France S.A.
Service Informatique
Rue Albert Calmette
F-81100 Castres
Téléphone : +33 (0)5 63 72 65 80
Téléfax : +33 (0)5 63 59 70 06
E-mail : eric.vernichon.ev at borchers.fr
____________________________________________________






More information about the Toulouse-pm mailing list