el operador m//

Este operador también conocido como de cotejo, se utiliza para localizar alguna expresión dentro de una cadena de texto o string. Si la expresión es verdadera entonces se regresará un 1.







Normalmente este operador es utilizado para verificar que nuestra variable tenga cierto valor. Por ejemplo:






my $string = "Mi frase no muy larga";


if($string =~ m/frase/){


print "Se encontró la palabra: frase.\n";


}


Al ver este pequeño pedazo de código verás un símbolo extraño "=~". Este símbolo le dice a perl que evalue la siguiente expresión regular a verdadero, lo que significa que si el operador regresa un valor de 1 o verdadero se imprimirá el texto dentro del "if".


Pero que pasa si quisieramos hacerlo al revés, si quisieramos checar que alguna expresión NO estuviera dentro de alguna cadena:


my $string = "Mi frase no muy larga";


if($string !~ m/jugo/){


print "No se encontró la palabra: jugo.\n";


}




Aquí vemos como debido a que NO se encontró la palabra "jugo" el código dentro del "if" es ejecutado.