Comparer deux chaînes indépendamment de la taille de la boîte en perl

Question

est-il de toute façon de comparer deux chaînes indépendamment de la taille du boîtier? Par exemple

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

Vous obtenez l'image

Answer 1

oui - utiliser uc() (fonction majuscule, voir 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";' 

$ 

Vous pouvez évidemment utiliser lc() aussi bien. Si vous voulez que l'opérateur "eq" réel soit insensible à la casse, il peut être possible d'utiliser des surcharges, mais je ne pense pas que ce soit ce que vous demandez - veuillez clarifier votre question si c'est le cas. Ce n'est pas une bonne idée si vous le voulez, à mon humble avis - trop fragile et conduit à la plus difficile possible de tracer et de déboguer les bogues.

En outre, il est un surpuissant dans votre cas précis où vous voulez juste l'égalité, mais Perl expressions régulières ont également modifyer cas indépendant « i »

Answer 2

deux façons de le faire:

• Utilisez l'opérateur lc ou uc, qui convertit les deux cordes respectivement inférieur ou majuscules:

  lc "steve" eq lc "STevE";

Une regex simple, fera tout aussi bien:

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

Answer 3

Selon perldoc (http://perldoc.perl.org/functions/fc.html), il est préférable d'utiliser

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

Ne pas oublier d'ajouter cette ligne avant la première utilisation de fc:

use feature 'fc';