Hi All,
Ho uno strano problema perl script. Qui è il contenuto dello script sto cercando di scrivere:

#! / 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 / prodotto / $ ENV (CCPROD) / $ ENV () CCPRODVER / config / abp_ $ ENV (CCPRODVER) _modbo.dat | cut-f2-d" "»;
$ size \u003d @ module_list;
print "\ n $ primo elemento moddule_list [0] \ n";
print "\ n Lunghezza del 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 $ md Modulo \ n";
@ running_proj_list \u003d `/ usr / bin / cat $ ccprojecthome / modulo / md $ / $ ENV (CCPRODVER) / confing / module_profile | grep-v PROJ | grep-v
Base | cut-f1-d "" »;
if ($?! \u003d 0)
(
print "Comando fallito \ n";
exit 1;
)
)
print "\ n Lista dei progetti \ n";

print "@ running_proj_list";

ora il problema è che, quando i commenti l'intero ciclo e per eseguire lo script verrà eseguito correttamente, ma con il ciclo for non è di lavoro e di dare errore
please help me per uscire da questo problema.

Qual è l'errore?

Hi All,

E 'possibile "passare" come questo in tcsh?

interruttore ( "$ var")
caso "1" | | "2":
impostare qualcosa
breakesw
caso "4" | | "5" | | "6":
impostare otherthing
breakesw
endsw