Cómo quitar un retorno de carro de una cadena en Perl

Escribir programas en el práctico de extracción e lenguaje de script Idioma del informe cuando se necesita una herramienta que puede automatizar de forma rápida manipulación de cadenas, proporcionar la interacción del usuario y entregar un formato aceptable. Los retornos de carro tienden a perturbar el formato de entrada del usuario y la salida del programa Perl por lo que las cadenas de texto un aspecto desordenado y difícil de seguir. Usar la palabra clave "mordisco" para eliminar los retornos de carro y limpiar la entrada y salida del programa.

Instrucciones

1 Abra una ventana de terminal de línea de comandos en un equipo que tiene habilitado Perl. Abra el archivo de script en Perl que contiene una cadena de texto para el que se debe retirar el retorno de carro.

2 Use las teclas de dirección del teclado para situar el cursor inmediatamente después de la línea en la que se le asigna una variable de la cadena de texto como su valor. Por ejemplo, si desea eliminar el retorno de carro de la cadena "Test" a continuación:

$ MyVariable = "Test \ n";

Agregar una línea de función "mordisco" para la variable de cadena de texto inmediatamente después de la asignación de cadena de texto como está escrito a continuación:

chomp ($ myVariable);

3 Utilice las teclas de flecha para colocar el cursor después de una línea que acepte la entrada de usuario y escribir una línea de función "mordisco" para la variable de cadenas de entrada de texto para eliminar el retorno de carro de la entrada del usuario para limpiar el formato. Por ejemplo:

while ($ entrada de usuario = <STDIN>) {

print "The user typed '$input'\n";

si la última ($ entrada eq '');

}

incluirá el retorno de carro con la entrada del usuario cuando el usuario presiona la tecla "Enter". Para eliminar el retorno de carro, insertar la función "mordisco" como está escrito a continuación:

while ($ entrada de usuario = <STDIN>) {

chomp($input);

print "El usuario ha escrito '$ de entrada' \ n";

si la última ($ entrada eq '');

}