La función de Perl "abierto" permite abrir un archivo de lectura, escritura o modo de adición . Cuando se lee el contenido de un archivo , puede guardar cada línea a un nuevo elemento en una variable de lista Perl, a continuación, utilizar la lista en su programa. Sin embargo , la función también lee el carácter de fin - de - línea y que ahorra en la lista también. Si no desea conservar este personaje, tienes que escribir una función que lo recorta . Instrucciones
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 = ;
< 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

Tipo el siguiente código:

sub trim ($ ) {

my $ string = cambio ;

$ string = ~ s /\\ s + $ //;
< p> return $ string ; .

}

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
4

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.
5

Guardar el archivo de programa .