Compruebe si una cadena contiene una subcadena

Question

¿Cómo puedo comprobar si una cadena dada contiene una cierta subcadena, usando Perl?

Más específicamente, quiero ver si s1.domain.com está presente en la variable de cadena dada.

Answer 1

Para saber si una cadena contiene subcadena puede utilizar la función index:

if (index($str, $substr) != -1) { 
    print "$str contains $substr\n"; 
} 

volverá la posición de la primera aparición de $substr en $str, o -1 si no se encuentra la subcadena.

Answer 2

Otra posibilidad es utilizar regular expressions que es lo que Perl es famoso por:

if ($mystring =~ /s1\.domain\.com/) { 
    print qq("$mystring" contains "s1.domain.com"\n); 
} 

Las barras invertidas son necesarios debido a que un . puede coincidir con cualquier carácter. Puede evitar esto utilizando los operadores \Q y \E.

my $substring = "s1.domain.com"; 
    if ($mystring =~ /\Q$substring\E/) { 
    print qq("$mystring" contains "$substring"\n); 
} 

O bien, puede hacer lo que declaró eugene y y utilizar la función index. Solo una palabra de advertencia: Index devuelve un -1 cuando no puede encontrar una coincidencia en lugar de undef o 0.

Por lo tanto, esto es un error:

my $substring = "s1.domain.com"; 
if (not index($mystring, $substr)) { 
    print qq("$mystring" doesn't contains "$substring"\n"; 
} 

Ésta será malo si s1.domain.com es al principio de la cadena. Personalmente me he quemado de esto más de una vez.

Answer 3

mayúsculas y minúsculas Subcadena Ejemplo

Ésta es una extensión de la respuesta de Eugene, que convierte las cuerdas a minúsculas antes de comprobar si la subcadena:

if (index(lc($str), lc($substr)) != -1) { 
    print "$str contains $substr\n"; 
}