Hi All,
I have one strange problem in perl script. Bellow is the contents of the script i am trying to write:

#!/usr/local/bin/perl

my $module_list = '';
my @running_module;
my $count=0;
my $flag=0;
my $ccprojecthome=$ENV{CCPROJECTHOME};
@module_list = `cat $ccprojecthome/product/$ENV{CCPROD}/$ENV{CCPRODVER}/config/abp_$ENV{CCPRODVER}_modbo.dat | cut -f2 -d" "`;
$size = @module_list;
print "\n First element $moddule_list[0] \n";
print "\n Lenght of the array $size \n";
@running_proj_list=`cat $ccprojecthome/module/ac/v650/config/module_profile | grep -v PROJ | grep -v Base | cut -f1 -d" "`;
foreach $md (@module_list)
{
print "\n Module $md \n";
@running_proj_list=`/usr/bin/cat $ccprojecthome/module/$md/$ENV{CCPRODVER}/confing/module_profile | grep -v PROJ | grep -v
Base | cut -f1 -d" "`;
if ( $? != 0 )
{
print "Command failed \n";
exit 1;
}
}
print "\n List of projects \n";

print " @running_proj_list ";

now the problem is that when i comment the whole for loop and execute script it will run properly but with for loop it is not working and giving error
please help me to get out of this problem.

What's the error?

Hi All,

Is it possible to "switch" like this in tcsh?

switch ( "$var" )
case "1" || "2" :
set something
breakesw
case "4" || "5" || "6" :
set otherthing
breakesw
endsw