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

Perl no tiene una función incorporada que elimina los espacios en blanco desde el principio o el final de una cadena, pero se puede utilizar el operador de sustitución incorporado para realizar la misma función. El operador sustitución utiliza expresiones regulares estándar para reemplazar una porción de una cadena con otros caracteres. La eliminación de 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 Abrir un documento de texto en blanco.

2 Escriba las líneas siguientes para iniciar el script de Perl:

! Bin / perl

use strict;
utilizar advertencias;

3 Escriba las siguientes líneas para crear una cadena que contiene espacios en blanco al principio y al final de la cadena, y la cadena de imprimir a la pantalla:

mi orig_string $ = "Esto es una cadena ...";
print $ orig_string "\ n".;

4 Escriba las siguientes líneas para eliminar los espacios en blanco del principio de la cadena y de imprimir la cadena editada a la pantalla:

$ Orig_string = ~ s / ^ \ s + //;
print $ orig_string;

5 Escriba las líneas siguientes para eliminar el espacio 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.

Consejos y advertencias

• Utilice el operador de sustitución para eliminar los caracteres especificados desde el principio o el final de una cadena.