Hi All,
Ik heb een vreemd probleem in perl script. Hieronder is de inhoud van het script ik probeer te schrijven:

#! / 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 / product / $ ENV (CCPROD) / $ ENV (CCPRODVER) / config / abp_ $ ENV (CCPRODVER) _modbo.dat | cut-f2-d" "";
$ size \u003d @ module_list;
print "\ n eerste element $ moddule_list [0] \ n";
print "\ n lengte van de array $ 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 / $ ENV (CCPRODVER) / confing / module_profile | grep-v proj | grep-v
Base | cut-f1-d "" ";
if ($?! \u003d 0)
(
print "Commando mislukt \ n";
exit 1;
)
)
print "\ n Lijst van projecten \ n";

print "@ running_proj_list";

nu het probleem is dat wanneer ik commentaar de hele lus en voer het script draait goed, maar met lus is het niet werkt en geven fout
Please help me to get out van dit probleem.