Hej Alla,
Jag har ett konstigt problem i perl skript. Bellow är innehållet i manus jag försöker att skriva:

#! / usr / local / bin /perl

min $ module_list \u003d'';
min @ running_module;
min $ count \u003d 0;
min $ flag \u003d 0;
min $ ccprojecthome \u003d $ ENV (CCPROJECTHOME);
@ module_list \u003d `cat $ ccprojecthome / produkt / $ ENV (CCPROD) / $ ENV (CCPRODVER) / config / abp_ $ ENV (CCPRODVER) _modbo.dat | cut-f2-d" ""
$ size \u003d @ module_list;
print "\ n Första delen $ moddule_list [0] \ n";
print "\ n längd matrisen $ storlek \ 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 Modul $ md \ n";
@ running_proj_list \u003d "/ usr / bin / cat $ ccprojecthome / modul / $ MD / $ ENV (CCPRODVER) / confing / module_profile | grep-v proj | grep-v
Base | cut-f1-d "" "
if ($? \u003d 0)
(
print "Kommando misslyckades \ n";
exit 1;
)
)
print "\ n Förteckning över projekt \ n";

print "@ running_proj_list";

nu problemet är att när jag kommentera det hela för loop och exekvera skript det kommer att fungera men med för loop det inte fungerar och att felet
behag hjälpa mig att komma ur detta problem.