[Bio] / FigKernelPackages / Tracer.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Tracer.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.107, Mon Jul 7 19:58:47 2008 UTC revision 1.108, Wed Sep 3 20:33:22 2008 UTC
# Line 3396  Line 3396 
3396      return $retVal;      return $retVal;
3397  }  }
3398    
3399    =head3 ListEQ
3400    
3401        my $flag = Tracer::ListEQ(\@a, \@b);
3402    
3403    Return TRUE if the specified lists contain the same strings in the same
3404    order, else FALSE.
3405    
3406    =over 4
3407    
3408    =item a
3409    
3410    Reference to the first list.
3411    
3412    =item b
3413    
3414    Reference to the second list.
3415    
3416    =item RETURN
3417    
3418    Returns TRUE if the two parameters are identical string lists, else FALSE.
3419    
3420    =back
3421    
3422    =cut
3423    
3424    sub ListEQ {
3425        # Get the parameters.
3426        my ($a, $b) = @_;
3427        # Declare the return variable. Start by checking the lengths.
3428        my $n = scalar(@$a);
3429        my $retVal = ($n == scalar(@$b));
3430        # Now compare the list elements.
3431        for (my $i = 0; $retVal && $i < $n; $i++) {
3432            $retVal = ($a->[$i] eq $b->[$i]);
3433        }
3434        # Return the result.
3435        return $retVal;
3436    }
3437    
3438  =head2 CGI Script Utilities  =head2 CGI Script Utilities
3439    
3440  =head3 ScriptSetup (deprecated)  =head3 ScriptSetup (deprecated)

Legend:
Removed from v.1.107  
changed lines
  Added in v.1.108

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3