Comment faire pour supprimer les lignes vides partir d'un fichier en Perl

Utilisez le script suivant sur son propre ou ajouter comme une partie d'un script plus grande. Tapez chaque ligne dans les étapes suivantes suivies par la touche Entrée
2

fichier ouvert, " filename.ext " or die "$ \\ n " ; .

Cette ligne ouvre le fichier qui contient les lignes vides que vous souhaitez supprimer . Le « ou mourir " $ ! \\ N " " commande indique le script que si il ya une erreur d'arrêter le script et imprimer l'erreur .
3

s'ouvrir , " tempfile . $ $ " or die " $ \\ n ";

Cette ligne crée un fichier temporaire pour stocker les résultats
4

while ( ) {
.

Cette ligne crée le début de la boucle qui fait tout le travail. La commande "while" indique au système que tant qu'il ya une autre ligne dans le fichier le code dans le {et} doit être exécuté .
5

prochaine si /^ \\ s * $ /;

Ce texte dit de tester la ligne que le script est en train d'examiner pour voir si elle ne contient que des espaces blancs comme un onglet ou un espace. Le "/^ \\ s * $ /" est le test. Si c'est tout ce que cette ligne contient puis exécutez la commande "next ", qui raconte le script pour revenir à la "while ( ) {" ligne pour obtenir la ligne suivante dans le fichier sans que rien ne soit écrit à l' temporaire . fichier
6

imprimer , $ _ ; }

Depuis la commande "next" n'a pas été exécuté , puis la ligne ne doit pas être vide. Donc , cette ligne envoie les informations à imprimer sur le fichier temporaire. Le "}" fait partie du récipient pour la boucle que vous avez créé en utilisant « tout ». Lorsque le script rencontre il , le script va revenir à la commande "while" et essayer d'obtenir une autre ligne à tester . Si il n'y a plus de lignes dans le fichier , alors la boucle est désactivé et le script ira à la prochaine commande
7

fermer le fichier ; . Fermer ;

il n'y a plus de lignes qui doivent être vérifiés ces deux commandes proches à la fois le fichier original et le fichier temporaire qui a été créé , ce qui signifie que les fichiers ne peuvent plus être modifiés.
8

rename ( " nom de fichier. poste "," nom_du_fichier.bak " ) or die " erreur de renommage : . $ \\ n ";

Cette ligne renomme le fichier original en nom_du_fichier.bak de sorte qu'il peut être conservé s'il est encore nécessaire
9

rename ( " . tempfile $ $ ", " filename.ext " ) or die " erreur de renommage : $! " ;

Cette ligne renomme le fichier temporaire que vous avez créé . sur le nom de votre fichier d'origine , en écrasant le fichier original avec le nouveau fichier

le script terminé devrait ressembler à ceci :

fichier ouvert, " filename.ext " or die "$ ! \\ n "; ouvrir OUT, " tempfile $ $ " or die " $ \\ n "; . ! while ( ) {next if /^ \\ s * $ /; imprimer , $ _ ; } close PHOTO ; fermer ; rename ( " filename.ext ", " nom_du_fichier.bak " ) or die " erreur de renommage : $! \\ n"; rename ( " . tempfile $ $ ", " filename.ext " ) or die "Erreur Renommer : $! " ;