[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