Comparar dos cadenas independientemente del tamaño de la caja en Perl

Question

¿Hay alguna forma de comparar dos cadenas, independientemente del tamaño de la caja? Por ejemplo

"steve" eq "STevE" <----- these would match 
"SHOE" eq "shoe" 

se obtiene la imagen

Answer 1

sí - utilizar uc() (función en mayúsculas y ver http://perldoc.perl.org/functions/uc.html)

$ perl -e 'print uc("steve") eq uc("STevE"); print "\n";' 
1 
$ perl -e 'print uc("SHOE") eq uc("shoe"); print "\n";'   
1 
$ perl5.8 -e 'print uc("SHOE") eq uc("shoe1"); print "\n";' 

$ 

Puede utilizar obviamente lc() también.

Si desea que el operador real "eq" no distinga entre mayúsculas y minúsculas, podría ser posible utilizar sobrecargas, pero no creo que eso sea lo que está pidiendo, aclare su pregunta si ese es el caso. Tampoco es una gran idea si lo desea, en mi humilde opinión, demasiado frágil y conduce a posibles fallas difíciles de rastrear y encontrar posibles errores.

Además, es una exageración en su caso específico en el que sólo desea la igualdad, pero Perl expresiones regulares también tienen dependiente de las mayúsculas modifyer "i"

Answer 2

Un par de maneras de hacer esto:

• Utilice el operador lc o uc, que convierte las dos cadenas para bajar o mayúsculas respectivamente:

  lc "steve" eq lc "STevE";

una expresión regular sencilla hará igual de bien:

'steve' =~ /^STevE$/i; 

Answer 3

Según perldoc (http://perldoc.perl.org/functions/fc.html), es mejor utilizar

fc("steve") eq fc("STevE") 

No se olvide de añadir esta línea antes del primer uso de fc:

use feature 'fc';