1
 Abra un archivo de programa Perl. Inserte el cursor en el lugar que desee utilizar expresiones regulares 
 2 
 Escriba el siguiente código: 
 
 my $ cat = " Mi gata dio a luz a tres gatitos "; 
 . 
 print $ cat . " \\ n"; 
 
 $ cat = ~ s /tres /cuatro /; 
 
 print $ cat . " \\ n"; 
 
 La primera línea define el valor de una variable y la segunda línea imprime en la pantalla. La tercera línea se utiliza el operador de sustitución para reemplazar "tres" en la variable con " cuatro". Si el operador no puede encontrar el patrón que corresponda ( "tres" ) , no cambia el valor de la variable a todas 
 3 
 Escriba el siguiente código: . 
 
 Impresión " Escriba algo :"; 
 
 my $ entrada = <>; 
 
 if ( $ entrada = ~ m /e /i ) {print "Lo que ha escrito contiene la letra« e ' ";} 
 
 else { print" lo que ha escrito no contiene la letra' e ' ";} 
 
 las dos primeras líneas de solicitar al usuario que introduzca una cadena y guarda de la entrada en una variable . La sentencia if se utiliza el operador partido para ver si el usuario escribe la letra " e ". La parte de " i" del operador indica al operador de ignorar caso. Cambiar a " s " para distinguir entre mayúsculas y minúsculas 
 4 
 print " Introduce un número de teléfono :"; . 
 
 Mi teléfono $ = <>; 
 < p> if ($ telefónica = ~ /\\ d \\ d \\ d \\ d \\ d \\ d \\ d /) {print "Usted ha introducido correctamente el número de teléfono ";} 
 
 else { print " Usted no se ha introducido correctamente el número de teléfono ";} 
 
 utiliza las clases de caracteres para comprobar la entrada de cadena para ver si coincide con el formato de un número de teléfono y luego le dice al usuario si lo hizo o no se ha introducido un número correctamente. Los " \\ d" clases de personajes comprueba expresiones de números. También puede utilizar " \\ w " para comprobar que no existen caracteres o " \\ s " para comprobar si hay un espacio en blanco . Uso de la mayúscula para cualquiera de estas tres clases niega sus representaciones . 
 5 
 Guardar el archivo de programa Perl. 
 
 
          
