case insensitive IF statement 1

[daveinOK2004]

Here's what I'm trying to do:

my @skipcn = ('KAbel', 'PAbell', 'tabney', 'TYost');
foreach my $compcn (@skipcn)
   {
      if ($compcn eq $cn)
         {
             print $compcn;
         }
   }

This works, but is case sensitive. I'd like to make it non-case sensitive. I found the use of a regex /exp/i is supposed to make case insensitive. I don't know if I'm doing it wrong, but it doesn't work when I do it.

I tried if (/$compcn/i eq $cn) as well as if ($compcn eq /$cn/i) with no success.

 

[ishnid]

With regexp:

if ( $cn =~ /^\Q$compcn\E$/i ) {
   # match, case-insensitive
}

With lc (the way I'd do it):

if ( lc( $cn ) eq lc( $compcn ) ) {
   # match, case-insensitive
}

 

[daveinOK2004]

That worked like a charm. I hadn't found the lc() function. So much to learn, so little time to do it. Thanks for the answer.

 

[KevinADC]

you could also use uc():

if ( uc( $cn ) eq uc( $compcn ) ) {
   # match, case-insensitive
}

------------------------------------------
- Kevin, perl coder unexceptional!