See also Categorized Damian Modules for the straight from the horse's mouth note that Switch isn't recommended for production use.

switch ($array[0])    {
            case (/Time_Stamp/i)    {
                @time = split (/-/, $array[1]);
                $date_submited = $time[0];
                $time_submited = $time[1];    
            }
            case (/eqpid/i)     {
                $eqpid =  $array[1];
#                $eqpid=substr ($array[1], -1, 1, );

                $chambernum = substr ($array[1], -1, 1);
                switch ($chambernum){
                    case (/A/i)        {$chamber = 1;}
                    case (/B/i)        {$chamber = 2;}
                    case (/C/i)        {$chamber = 3;}
                    case (/D/i)        {$chamber = 4;}
                }
            }
            case (/AlarmType/i)    {$alarmtype = "$array[1]";}
            case (/LotID/i)        {
                @lotid = split( /-/, $array[1] );
                $lotid = "$lotid[0]";
                $wafer_flow = "$lotid[1]-$lotid[2]";
            }
            case (/Code/i)        {$code = "$array[1]";}
            case (/UserCode/i)    {
#                $usercode = "$array[1]";
                print "User = $array[1]";
            }

look at the case for code and Usercode
[download]

You probably want to put the the /Code/ case AFTER the /UserCode/ case, since /Code/ matches "UserCode" as well as "Code" (and any other string containing "Code").
"What should it profit a man, if he should win a flame war, yet lose his cool?"

thank you so much i try that and it work. Also for my LotID, when i print out it come out as (Lot#1 . How do i remove the ( from Lot#1? I'm not sure how to use the regex command here thank again

I'd be more inclined to use a hash whose keys are the appropriate case values, some of which would be regexes to deal with Code/UserCode.

phimtau123:

It appears that $array[0] is the field name and that you're using regular expressions to get case insensitivity. If that's the case, you could let too much junk through since your switch statement is looking for words with any matching substring. You might instead just change your code to map things to upper or lower case for the comparison, like:

switch (uc($array[0]))    {
            case (uc("Time_Stamp"))    {
                @time = split (/-/, $array[1]);
                $date_submited = $time[0];
[download]

Also, you should quit putting quotes around your variable references. It slows things down, and can cause you some problems. For example, check the result of the following line when @lotid contains 0, 2, 4.

                $wafer_flow = "$lotid[1]-$lotid[2]";
[download]

...roboticus

Assuming /Time_Stamp/i really means /^Time_Stamp\z/i,

my @array = ...;

my %dispatch = (
   time_stamp => sub {
      @time = split (/-/, $array[1]);
      $date_submited = $time[0];
      $time_submited = $time[1];    
   },

   ...
);

my $func = $dispatch{lc($array[0])};
if ($func) {
   $func->();
} else {
   ...
}
[download]