Compruebe si una cadena contiene una subcadena

¿Cómo puedo comprobar si una determinada cadena contiene una determinada subcadena, utilizando Perl?

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

Para saber si una cadena contiene una subcadena, puede usar la indexfunción:

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

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

Otra posibilidad es usar expresiones regulares, que es por lo que Perl es famoso:

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

Las barras invertidas son necesarias porque .puede coincidir con cualquier carácter. Puede evitar esto utilizando los operadores \Qy \E.

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

O puede hacer lo que eugene y dijo y usar la función de índice . Solo una advertencia: el índice devuelve un -1cuando no puede encontrar una coincidencia en lugar de un undefo 0.

Por tanto, esto es un error:

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

Esto será incorrecto si s1.domain.comestá al principio de su cadena. Personalmente, me han quemado con esto más de una vez.

Ejemplo de subcadena que no distingue entre mayúsculas y minúsculas

Esta es una extensión de la respuesta de Eugene, que convierte las cadenas a minúsculas antes de verificar la subcadena:

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