perl - reemplazar - probar expresiones regulares
¿Cómo comparo dos cadenas en Perl? (6)
Además de la completa lista de operadores de comparación de cadenas de Sinan Ünür, Perl 5.10 agrega el operador de coincidencia inteligente.
El operador de coincidencia inteligente compara dos elementos según su tipo. Consulte la tabla siguiente para conocer el comportamiento de 5.10 (creo que este comportamiento está cambiando ligeramente en 5.10.1):
perldoc perlsyn "Smart matching en detalle" :
El comportamiento de una coincidencia inteligente depende de qué tipo de cosa sean sus argumentos. Siempre es conmutativa, es decir,
$a ~~ $bcomporta igual que$b ~~ $a. El comportamiento está determinado por la siguiente tabla: la primera fila que se aplica, en cualquier orden, determina el comportamiento de coincidencia.$a $b Type of Match Implied Matching Code ====== ===== ===================== ============= (overloading trumps everything) Code[+] Code[+] referential equality $a == $b Any Code[+] scalar sub truth $b−>($a) Hash Hash hash keys identical [sort keys %$a]~~[sort keys %$b] Hash Array hash slice existence grep {exists $a−>{$_}} @$b Hash Regex hash key grep grep /$b/, keys %$a Hash Any hash entry existence exists $a−>{$b} Array Array arrays are identical[*] Array Regex array grep grep /$b/, @$a Array Num array contains number grep $_ == $b, @$a Array Any array contains string grep $_ eq $b, @$a Any undef undefined !defined $a Any Regex pattern match $a =~ /$b/ Code() Code() results are equal $a−>() eq $b−>() Any Code() simple closure truth $b−>() # ignoring $a Num numish[!] numeric equality $a == $b Any Str string equality $a eq $b Any Num numeric equality $a == $b Any Any string equality $a eq $b + − this must be a code reference whose prototype (if present) is not "" (subs with a "" prototype are dealt with by the ''Code()'' entry lower down) * − that is, each element matches the element of same index in the other array. If a circular reference is found, we fall back to referential equality. ! − either a real number, or a string that looks like a number
El "código coincidente" no representa el código de coincidencia real, por supuesto: está allí para explicar el significado previsto. A diferencia de grep, el operador de coincidencia inteligente se cortocircuitará siempre que sea posible.
Coincidencia personalizada mediante sobrecarga Puede cambiar la forma en que se combina un objeto al sobrecargar el operador
~~. Esto supera la semántica de coincidencia inteligente habitual. Veroverload.
¿Cómo comparo dos cadenas en Perl?
Estoy aprendiendo Perl, tuve esta pregunta básica buscada aquí en StackOverflow y no encontré una buena respuesta, así que pensé en preguntar.
El subtexto obvio de esta pregunta es:
¿Por qué no puedes simplemente usar
==para verificar si dos cadenas son iguales?
Perl no tiene tipos de datos distintos para texto vs. números. Ambos están representados por el tipo "scalar" . Dicho de otra manera, las cadenas son números si los usa como tales .
if ( 4 == "4" ) { print "true"; } else { print "false"; }
true
if ( "4" == "4.0" ) { print "true"; } else { print "false"; }
true
print "3"+4
7
Dado que el texto y los números no se diferencian por el idioma, no podemos simplemente sobrecargar al operador == para hacer lo correcto en ambos casos. Por lo tanto, Perl proporciona eq para comparar valores como texto:
if ( "4" eq "4.0" ) { print "true"; } else { print "false"; }
false
if ( "4.0" eq "4.0" ) { print "true"; } else { print "false"; }
true
En breve:
- Perl no tiene un tipo de datos exclusivo para cadenas de texto
- use
==o!=, para comparar dos operandos como números - use
eqone, para comparar dos operandos como texto
Hay muchas otras funciones y operadores que se pueden usar para comparar valores escalares, pero conocer la distinción entre estas dos formas es un primer paso importante.
Y si desea extraer las diferencias entre las dos cadenas, puede usar String :: Diff .
Ver perldoc perlop . Use lt , gt , eq , ne y cmp según corresponda para las comparaciones de cadenas:
Binary
eqdevuelve true si el argumento de la izquierda es stringwise igual al argumento de la derecha.Binario
nedevuelve verdadero si el argumento de la izquierda es de cadena no es igual al argumento de la derecha.El
cmpbinario devuelve -1, 0 o 1, dependiendo de si el argumento de la izquierda es cadena menos, igual o mayor que el argumento de la derecha.Binary
~~hace una SmartCatch entre sus argumentos. ...
lt,le,ge,gtycmpusan el orden de intercalación (clasificación) especificado por la configuración regional actual si una configuración regional de uso heredada (pero nouse locale '':not_characters'') está en vigor. Ver perllocale . No mezcle estos con Unicode, solo con codificaciones binarias heredadas. Los módulos estándar Unicode::Collate y Unicode::Collate::Locale ofrecen soluciones mucho más potentes a problemas de intercalación.
print "Matched!/n" if ($str1 eq $str2)
Perl tiene operadores de comparación numérica y de comparación de cadenas independientes para ayudar con la escritura suelta en el idioma. Debería leer perlop para todos los operadores diferentes.
cmpComparar''a'' cmp ''b'' # -1 ''b'' cmp ''a'' # 1 ''a'' cmp ''a'' # 0eqIgual a''a'' eq ''b'' # 0 ''b'' eq ''a'' # 0 ''a'' eq ''a'' # 1neNo igual a''a'' ne ''b'' # 1 ''b'' ne ''a'' # 1 ''a'' ne ''a'' # 0Menos de
''a'' lt ''b'' # 1 ''b'' lt ''a'' # 0 ''a'' lt ''a'' # 0leMenor que o igual a''a'' le ''b'' # 1 ''b'' le ''a'' # 0 ''a'' le ''a'' # 1gtMayor que''a'' gt ''b'' # 0 ''b'' gt ''a'' # 1 ''a'' gt ''a'' # 0geMayor o igual a''a'' ge ''b'' # 0 ''b'' ge ''a'' # 1 ''a'' ge ''a'' # 1
Ver perldoc perlop para más información.
(Estoy simplificando esto un poco, ya que todos menos cmp devuelven un valor que es tanto una cadena vacía como un valor numérico cero en lugar de 0 , y un valor que es tanto la cadena ''1'' como el valor numérico 1 . son los mismos valores que siempre obtendrás de operadores booleanos en Perl. En realidad, solo deberías estar utilizando los valores de retorno para operaciones booleanas o numéricas, en cuyo caso la diferencia en realidad no importa).