En Perl, una expresión regular es uno o más caracteres que se utilizan para que coincida con los valores de cadenas , tales como letras específicas , las marcas de identificación o espacios en blanco . Usted puede crear funciones que utilizan expresiones regulares con el operador de sustitución Perl para que coincida con los espacios en blanco y eliminarlos. El carácter " ^" le permite especificar sólo caracteres al principio de la cadena, el "$" le permite identificar sólo aquellos en el extremo , o puede omitir estos y combinar todos los espacios en blanco en toda la cadena. Instrucciones
1

Abra un archivo de programa Perl, e inserte el cursor al comienzo
2

Escriba el siguiente código: .

Sub trim ($ ) {

my $ string = cambio ;

$ string = ~ s /\\ s + //g;

retorno $ cadena ;

}

Esta función utiliza el operador de sustitución " s ///" para que coincida con los espacios en blanco y eliminarlos. La clase " \\ s " carácter coincide con todos los caracteres de espacio en blanco y los reemplaza con nada . En otras palabras, los elimina . Devuelve una cadena que no contiene caracteres de espacio en blanco en cualquier lugar
3

Escriba el siguiente código: .

Sub ltrim ($ ) {

my $ string = cambio ;

$ string = ~ s /^ \\ s + //;

retorno $ cadena ;

}

Esta función sólo elimina los principales espacios en blanco antes de cualquier otro carácter . El "^ \\ s ", dice para que coincida con los espacios en blanco sólo hasta el primer carácter de espacio de color , a continuación, eliminarlos
4

Escriba el siguiente código: .

Sub rtrim ($ ) {

my $ string = cambio ;

$ string = ~ s /\\ s + $ //;

retorno $ cadena ;

}

Esta función sólo elimina los principales espacios en blanco al final de la cadena. La " s + $ ", dice para que coincida con los espacios en blanco sólo después de que todos los caracteres de espacio no blancos , y luego eliminarlos.
5

Guardar el archivo de programa .