Hi All,
Ich habe ein seltsames Problem in perl Skript. Balg ist der Inhalt des Skripts Ich bin versucht zu schreiben:

#! / 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 Erstes Element $ moddule_list [0] \ n";
print "\ n Länge des Arrays $ 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 Modul $ 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 "Command failed \ n";
exit 1;
)
)
print "\ n Liste der Projekte \ n";

print "@ running_proj_list";

Das Problem ist, dass, wenn ich den ganzen Kommentar for-Schleife und Skript ausführen wird es korrekt ausgeführt wird, aber mit for-Schleife ist es nicht funktioniert und die Fehler
Bitte helfen Sie mir, um aus diesem Problem.