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"; } }