Cómo limpiar el inicio y fin de una cadena en Perl

Perl no tiene una función incorporada que elimina los espacios en blanco del principio o del final de una cadena , pero se puede utilizar el operador de sustitución incorporado para realizar la misma función . El operador de sustitución utiliza expresiones regulares estándar para reemplazar una porción de una cadena con otros caracteres . Eliminar espacios en blanco puede ayudar a limpiar y validar la entrada del usuario , y también se puede utilizar para eliminar el espacio innecesario en un archivo de texto. Instrucciones
1

Abra un documento de texto en blanco
2

escriba las líneas siguientes para iniciar la secuencia de comandos Perl : . !

# Bin /perluse estricta ; use warnings ;
3

escriba las líneas siguientes para crear una cadena que contiene espacios en blanco al principio y al final de la cadena , y la impresión de la cadena en pantalla :
< p> my $ orig_string = " Esto es una cadena ... " ; print $ orig_string . " \\ n ";
4

escriba las líneas siguientes para eliminar los espacios en blanco del principio de la cadena e imprimir la cadena editada a la pantalla :
< p > $ orig_string = ~ s /^ \\ s + //; print $ orig_string ;
5

escriba las líneas siguientes para eliminar los espacios en blanco del final de la cadena e imprimir la cadena editada a la pantalla : . .

$ orig_string = ~ s /\\ s + $ //, print $ orig_string " \\ n";
6

Guarde y cierre el archivo