Cómo quitar líneas en blanco de un archivo en Perl

Poner líneas en blanco en un script en Perl que está creando es una cosa fácil de hacer. Puede ser que algo está mal con el archivo o simplemente pulsa la tecla Enter demasiadas veces. No importa lo que suceda, el siguiente script eliminará las líneas en blanco ( incluso si contienen caracteres ocultos) . Este pequeño script no sólo elimina las líneas en blanco , pero genera un archivo Perl que es compacto y listo para su uso. Instrucciones
1

Utilice el siguiente script por sí solo o agregarlo como parte de un guión más grande. Escriba cada línea en los siguientes pasos seguidos por la tecla Intro
2

archivo abierto ", filename.ext " o morir "$ \\ n "; .

Esta línea se abre el archivo que tiene las líneas en blanco que desea eliminar . La " vida o muerte " $ ! \\ N " " comando le indica al guión que si hay un error al detener el script e imprimir el error.
3

abren , " archivo temporal . $ $ " or die " $ \\ n "; !

Esta línea crea un archivo temporal para almacenar los resultados
4

while ( ) {
.

Esta línea crea el inicio del bucle que hace todo el trabajo. El comando "mientras " le dice al sistema que mientras hay otra línea en el archivo el código dentro de { y } necesita ser ejecutado.
5

siguiente si /^ \\ s * $ /;

Este texto dice para probar la línea de que el guión está estudiando para ver si sólo contiene caracteres de espacio en blanco , como una tabulación o un espacio. El " /^ \\ s * $ /" es la prueba. Si eso es todo lo que esta línea contiene a continuación, ejecute la "siguiente" comando que cuenta la secuencia de comandos para volver a la " while ( ) { " línea para obtener la siguiente línea en el archivo sin nada que se escriben en el temporal . archivo
6

Imprima , $ _ ;}

Desde el comando "siguiente" no se ha ejecutado , entonces la línea no debe estar vacío . Así , esta línea envía la información a imprimir en el archivo temporal . El "} " es parte del contenedor para el bucle que creó con " tiempo". Cuando la secuencia de comandos se encuentra con él, el guión volverá a la orden " , mientras que" y tratar de conseguir otra línea a probar. Si no hay más líneas en el archivo , a continuación, el bucle se puede salir y el guión irá al siguiente comando
7

Cerrar Archivo ; . Cerrar ;

Después hay hay más líneas que necesitan ser comprobados estos dos comandos cerrar tanto el archivo original y el archivo temporal que se creó , lo que significa que los archivos no se pueden editar.
8

rename ( "nombre de archivo . ext "," nombre.bak " ) or die " Error al cambiar el nombre de : . $ \\ n ";

Esta línea cambia el nombre del archivo original que nombre.bak por lo que se puede mantener si se necesita de nuevo
9

rename ( " . tempfile $ $", " filename.ext ") or die "Error al cambiar el nombre de : $ ";

Esta línea cambia el nombre del archivo temporal que ha creado . para el nombre de su archivo original y sobrescribe el archivo original con el nuevo archivo

el guión completo debería tener este aspecto :

archivo abierto ", filename.ext " o morir "$ ! \\ n "; se abren , " tempfile $ $ " or die " $ \\ n "; . ! while ( ) { a continuación si /^ \\ s * $ /; imprima , $ _ ;} cerrar el archivo ; cerrar ; rename ( " filename.ext ", " nombre.bak " ) or die "Error en el cambio de nombre : $ \\ n"; rename ( " . tempfile $ $", " filename.ext " ) or die "Error en cambio de nombre : $ " ;