Browse - Programming Tips - Perl: How can I do a case insensitive string compare?

Date: 2008feb14
Language: perl
Keywords: ignore case

Q.  Perl: How can I do a case insensitive string compare?

A.  Here's a pretty nice way to do it:

sub ceq($$) { my($a, $b) = @_; $b = quotemeta($b); # For safety return $a =~ m/^$b$/i; # Using the i is key } sub ceq2($$) # Another way { my($a, $b) = @_; return lc($a) eq lc($b); # Convert both to lowercase } sub exampleUse() { if (ceq('apple', 'aPPle')) { print "same\n"; } else { print "different\n"; } }