El operador m en Perl se usa para hacer coincidir un patrón dentro del texto dado. La string pasada al operador m se puede encerrar dentro de cualquier carácter que se utilizará como delimitador de expresiones regulares.
Para imprimir este patrón coincidente y la string restante, el operador m proporciona varios operadores que incluyen $, que contiene la última coincidencia de agrupación coincidente.
$& : contiene toda la string coincidente
$` : contiene todo antes de la string coincidente
$’ : contiene todo lo que sigue a la string coincidente
Sintaxis: m/String/
Retorno:
0 en caso de falla y 1 en caso de éxito
Ejemplo 1:
#!/usr/bin/perl -w # Text String $string = "Geeks for geeks is the best"; # Let us use m operator to search # "or g" $string =~ m/or g/; # Printing the String print "Before: $`\n"; print "Matched: $&\n"; print "After: $'\n";
Producción:
Before: Geeks f Matched: or g After: eeks is the best
Ejemplo 2:
#!/usr/bin/perl -w # Text String $string = "Welcome to GeeksForGeeks"; # Let us use m operator to search # "to Ge" $string =~ m/to Ge/; # Printing the String print "Before: $`\n"; print "Matched: $&\n"; print "After: $'\n";
Producción:
Before: Welcome Matched: to Ge After: eksForGeeks