Todas oi,
Tenho um problema estranho em perl script. Abaixo está o conteúdo do script que estou tentando escrever:

#! / 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 / produto / $ ENV (CCPROD) / $ ENV (CCPRODVER) / config / abp_ $ ENV (CCPRODVER) _modbo.dat | cut-f2-d" "`;
$ tamanho \u003d @ module_list;
print "\ n $ moddule_list Primeiro elemento [0] \ n";
print "\ n Tamanho do array $ tamanho \ n";
@ running_proj_list \u003d `cat $ ccprojecthome/module/ac/v650/config/module_profile | grep-v PROJ | grep-v Base | cut-f1-d" "`;
foreach $ m (@ module_list)
(
print "\ n Módulo $ md \ n";
@ running_proj_list \u003d `/ usr / bin / cat $ ccprojecthome / módulo / $ m / $ ENV CCPRODVER) (/ confing / module_profile | grep-v PROJ | grep-v
Base | cut-f1-d "" `;
if ($?! \u003d 0)
(
print "Comando falhou \ n";
exit 1;
)
)
print "\ n Lista de projectos \ n";

print "@ running_proj_list";

agora o problema é que quando eu comentar para todo o ciclo e executar script será executado corretamente, mas com a alça que não está funcionando e dando erro
por favor me ajude a sair deste problema.

Qual o erro?

Todas oi,

É possível "mudar" como este no tcsh?

switch ( "$ var")
caso "1" | | "2":
definir algo
breakesw
case "4" | | "5" | | "6":
conjunto otherthing
breakesw
endsw