Hi All,
Jeg har et mærkeligt problem i perl script. Nedenuden er indholdet af det script, jeg forsøger at skrive:

#! / 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ørste element $ moddule_list [0] \ n";
print "\ n Længde af array $ størrelse \ n";
@ running_proj_list \u003d `cat $ ccprojecthome/module/ac/v650/config/module_profile | grep-v projekter | grep-v Base | cut-f1-d" "`;
foretrukne $ 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 projekter | grep-v
Base | cut-f1-d "" `;
if ($?! \u003d 0)
(
print "Kommando mislykkedes \ n";
exit 1;
)
)
print "\ n Liste over projekter, \ n";

print "@ running_proj_list";

nu er problemet, at når jeg kommentere hele for loop og udføre script det vil køre ordentligt, men med for sløjfe det ikke fungerer og giver fejl
behage hjælp mig at komme ud af dette problem.

Hvad er fejlen?

Hi All,

Er det muligt at "skifte" som denne i tcsh?

switch ( "$ var")
case "1" | | "2":
fastsat noget
breakesw
case "4" | | "5" | | "6":
sæt otherthing
breakesw
endsw