Salut tous,
J'ai un problème bizarre perl script. Voici le contenu du script, je suis en train d'écrire:

#! / usr / local / bin /perl

my $ module_list \u003d'';
my @ running_module;
my $ count \u003d 0;
my $ flag \u003d 0;
my $ ccprojecthome \u003d $ ENV () CCPROJECTHOME;
@ module_list \u003d `cat $ ccprojecthome / produit / CCPROD $ ENV () / $ ENV () CCPRODVER / config / abp_ $ ENV (CCPRODVER) _modbo.dat | cut-f2-d" "»;
$ size \u003d @ module_list;
print "\ n $ moddule_list Premier élément [0] \ n";
print "\ n Longueur du tableau $ size \ n";
@ running_proj_list \u003d `cat $ ccprojecthome/module/ac/v650/config/module_profile | grep-v PROJ | grep-v Base | cut-f1-d" "»;
foreach $ md (@ module_list)
(
print "\ n $ Module md \ n";
@ running_proj_list \u003d `/ usr / bin / cat $ ccprojecthome / module / $ md / CCPRODVER $ ENV () / confing / module_profile | grep-v PROJ | grep-v
Base | cut-f1-d "" »;
if ($?! \u003d 0)
(
print "Command failed \ n";
exit 1;
)
)
print "\ n Liste des projets \ n";

print "@ running_proj_list";

maintenant le problème est que quand je commente l'ensemble de la boucle et exécuter le script, il fonctionne correctement, mais avec pour la boucle, il ne fonctionne pas et donne l'erreur
s'il vous plaît aidez-moi à sortir de ce problème.