Vergleichen Sie zwei Strings unabhängig von der Größe des Gehäuses in Perl

Question

Gibt es trotzdem zwei Strings unabhängig von der Größe des Gehäuses zu vergleichen? Für Beispiel

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

Sie erhalten das Bild

Answer 1

ja - verwenden uc() (Großbuchstaben-Funktion, siehe 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";' 

$ 

Sie offensichtlich lc() auch nutzen können.

Wenn Sie möchten, dass der tatsächliche "eq" -Operator zwischen Groß- und Kleinschreibung unterscheidet, könnte es möglich sein, Überladungen zu verwenden, aber ich denke nicht, dass Sie das wünschen. Bitte klären Sie Ihre Frage. Es ist auch keine großartige Idee, wenn Sie das wollen, IMHO - zu zerbrechlich und führt zu großen möglichen schwer zu verfolgen und Fehler zu debuggen.

Außerdem ist es zuviel des Guten in Ihrem speziellen Fall, in dem Sie nur Gleichheit wollen, aber Perl reguläre Ausdrücke haben auch Fall unabhängige modifyer „i“

Answer 2

Ein paar Möglichkeiten, dies zu tun:

• Mit dem lc oder uc Operator, der beide Strings umwandelt oder oberen Gehäuse abzusenken beziehungsweise:

  lc "steve" eq lc "STevE";

Eine einfache regex wird genauso gut:

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

Answer 3

Nach Perldoc (http://perldoc.perl.org/functions/fc.html), ist es besser

verwenden

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

diese Zeile nicht vor dem ersten Gebrauch hinzufügen Vergessen von fc:

use feature 'fc';