Hei Alle,
Jeg har en rart problem i perl skriptet. Bellow er innholdet i manuset jeg prøver å skrive:

#! / usr / local / bin /perl

my $ module_list \u003d'';
min @ running_module;
my $ count \u003d 0;
my $ flag \u003d 0;
my $ ccprojecthome \u003d $ konv (CCPROJECTHOME);
@ module_list \u003d `cat $ ccprojecthome / produkt / $ konv (CCPROD) / $ konv (CCPRODVER) / config / abp_ $ konv (CCPRODVER) _modbo.dat | cut-F2-d" "`;
$ size \u003d @ module_list;
print "\ n første elementet $ moddule_list [0] \ n";
print "\ n Lengde i matrisen $ størrelse \ n";
@ running_proj_list \u003d `cat $ ccprojecthome/module/ac/v650/config/module_profile | grep-v prosjekter | grep-v Base | cut-f1-d" "`;
foreach $ md (@ module_list)
(
print "\ n Module $ md \ n";
@ running_proj_list \u003d `/ usr / bin / cat $ ccprojecthome / modul / $ MD / $ konv (CCPRODVER) / confing / module_profile | grep-v prosjekter | grep-v
Base | cut-f1-d "" `;
if ($? \u003d 0)
(
print "Command failed \ n";
exit 1;
)
)
print "\ n Liste over prosjekter \ n";

print "@ running_proj_list";

nå er problemet er at når jeg kommentere det hele for loop og kjøre skript den vil kjøre skikkelig, men med for loop det ikke fungerer, og gir feil
behage hjelpe meg å komme ut av dette problemet.

Hva er feil?

Hei Alle,

Er det mulig å "bytte" som dette i tcsh?

slå ( "$ var")
case "1" | | "2":
sett noe
breakesw
case "4" | | "5" | | "6":
satt otherthing
breakesw
endsw