1
Abra un archivo de programa Perl. Escriba el siguiente código:
Open Data , "< text.txt " ;
La función "Abrir" se abre el archivo proporcionado por el nombre del archivo en la expresión y guarda el contenido en el identificador de archivo " DATA" . El "< " especifica para abrir el archivo en modo "read"
2
Escriba el siguiente código: .
My @ lines = ; Tipo el siguiente código: sub trim ($ ) { my $ string = cambio ; $ string = ~ s /\\ s + $ //; } Esta función utiliza una expresión regular para eliminar espacios en blanco de cola de una cadena que se le pasa como parámetro Escriba el siguiente código: for ($ i = 0 ; $ i < @ líneas ; $ i + + ) { @ líneas [ $ i ] = trim (@ líneas [ $ i ] ) ; } Este código recorre cada elemento de la lista, y se lo pasa a la función de " ajuste " que ha creado, a continuación, sobrescribe el elemento con los mismos datos, sólo que sin final de línea de caracteres. Guardar el archivo de programa .
< p> Esta línea crea una lista Perl denominado "@ líneas " que guarda cada línea del archivo como un nuevo elemento en la lista , como caracteres de fin de línea.
3
< p> return $ string ; .
4
5