Sætte blanke linjer i en Perl script du opretter er en nem ting at gøre. Det kan være, at der er noget galt med din fil , eller du bare trykke på Enter-tasten for mange gange. Uanset hvordan det sker , vil følgende script fjerne disse tomme linjer ( selvom de indeholder skjulte tegn) . Denne korte script ikke kun fjerner tomme linjer, men udsender et Perl -fil, der er kompakt og klar til brug. Instruktioner
1
Brug følgende script på eget eller tilføje den som en del af et større script. Type i hver linje i de følgende trin efterfulgt af Enter-tasten
2
åben fil " filnavn.ext " eller dø "$ \\ n " ; .
Denne linje åbner den fil , der har de blanke linier, du ønsker at fjerne. Den " eller dø " $ ! \\ N " " Kommandoen fortæller scriptet , at hvis der er en fejl at stoppe scriptet og udskrive fejlen.
3
åbner ud , " tempfile . $ $ "eller die " $ \\ n "; !
Denne linje opretter en midlertidig fil til at gemme resultaterne
4
while ( ) {
. Denne linje skaber starten af løkken , der gør alt arbejdet . Den " mens " kommando fortæller systemet , at så længe der er en anden linje i filen koden i { og } skal udføres.
5.
næste hvis /^ \\ s * $ /;
Denne tekst siger at teste den linje, som scriptet aktuelt ser på at se, om den kun indeholder blanktegn såsom en fane eller et mellemrum. Den " /^ \\ s * $ /" er testen . Hvis det er alle, at denne linje, så indeholder udføre den "næste " kommando som fortæller scriptet til at gå tilbage til ", mens ( ) {" linje for at få den næste linje i filen , uden noget bliver skrevet til den midlertidige . fil
6 print OUT , $ _ ;}
Siden den "næste " kommando ikke blev henrettet, så den linje må ikke være tomme . Så denne linie sender oplysningerne til at udskrive til den midlertidige fil . Den " } " er en del af beholderen til sløjfen , du oprettede bruger ", mens ". Når scriptet støder det , vil scriptet gå tilbage til ", mens " kommando og forsøge at få en anden linje , der skal testes . Hvis der ikke er flere linjer i filen, så sløjfen forlades og scriptet vil gå til den næste kommando
7
tæt FIL , . Lukke ,
Efter der ikke er flere linjer, der skal kontrolleres disse to kommandoer tætte både den oprindelige fil og den midlertidige fil , der blev oprettet , hvilket betyder, at de filer ikke længere kan redigeres.
8
omdøbe ( " filnavnet. ext "," filename.bak " ) or die " Fejl ved omdøbning : . $ \\ n ";
Denne linje omdøber den oprindelige fil til filename.bak så det kan holdes , hvis det er nødvendigt igen < br >
9
omdøbe ( " . tempfile $ $ ", " filnavn.ext " ) or die "Fejl ved omdøbning : $ ! "
Denne linje omdøber den midlertidige fil , du har oprettet . til navnet på din oprindelige fil , overskrives den oprindelige fil med den nye fil
afsluttede script skal se sådan ud : Hej
åben fil " filnavn.ext " eller dø "$ ! \\ n "; åben ud , " tempfile $ $ "eller die " $ \\ n "; . ! while ( ) { næste , hvis /^ \\ s * $ /, udskrive , $ _ ;} luk fil ; lukke OUT , rename ( " filnavn.ext ", " filename.bak " ) or die "Fejl ved omdøbning : $ \\ n"; omdøbning ( " . tempfile $ $ ", " filnavn.ext " ) or die " Fejl i omdøbe : $ "