Cómo comprobar si una cadena existe en Perl

La función de Perl "m " se utiliza para que coincida con una cadena en una variable o un archivo. Esto es útil si usted está tratando de encontrar una línea particular de un archivo, como una línea de advertencia en un archivo de registro. También se puede utilizar para comprobar que un valor enviado por el usuario contiene la información correcta . Puede coincidir con una cadena literal o puede utilizar expresiones regulares --- una forma de usar metacaracteres para representar un carácter o conjunto de caracteres. Instrucciones
1

Abra un documento de texto en cualquier editor de texto.
2

Tipo de la línea

#! /Usr /bin /perl < br . >

para iniciar el script perl
3

Escriba el Lines

my $ my_string ;

$ my_string = " Este es un ejemplo cadena " ; .

print $ my_string " \\ n ";

para crear e imprimir la variable que contiene la cadena" . Esto es una cadena de ejemplo "
4 < p > Escriba el Lines

if ($ my_string = ~ m /test /i )

{print " Sí , " prueba " de la cadena fue encontrada \\ n ";}

más

{print " la cadena ' prueba ' no se ha encontrado \\ n ";}

para crear la sentencia "if" que comprueba si la cadena " test" existe.
5

Escriba el Lines

if ($ my_string = ~ m /ejemplo /i )

{print " Sí , " ejemplo " de la cadena era encontrado \\ n ";}

más

{print " La cadena 'ejemplo' no se ha encontrado \\ n " ;}

para crear la instrucción if que comprueba para ver si existe la cadena "example" .
6

Guarde el archivo como " match.pl " .
7

Escriba el comando " perl match.pl " en el símbolo del sistema para probar el script.