Hi All,
Tengo un extraño problema en perl guión. Abajo es el contenido de la secuencia de comandos que estoy tratando de escribir:

#! / usr / local / bin /perl

my $ module_list \u003d'';
mi @ running_module;
my $ count \u003d 0;
my $ bandera \u003d 0;
mi ccprojecthome $ \u003d $ ENV CCPROJECTHOME ();
@ module_list \u003d `cat $ ccprojecthome / producto / $ ENV (CCPROD) / $ ENV (CCPRODVER) / config / abp_ $ ENV (CCPRODVER) _modbo.dat | cut-f2-d" "`;
$ size \u003d @ module_list;
print "\ n Primera moddule_list $ elemento [0] \ n";
print "\ n longitud de la matriz $ 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 $ Módulo MD \ n";
@ running_proj_list \u003d `/ usr / bin / cat $ ccprojecthome / módulo / $ md / $ ENV (CCPRODVER) / confing / module_profile | grep-v PROJ | grep-v
Base | cut-f1-d "" `;
if ($? \u003d 0)
(
print "Comando no \ n";
exit 1;
)
)
print "\ n Lista de proyectos \ n";

print "@ running_proj_list";

ahora el problema es que cuando todo el comentario de bucle y ejecutar secuencia de comandos se ejecutará correctamente, pero con el bucle for no está funcionando y dando el error
por favor me ayude a salir de este problema.