Gebruik het volgende script op zijn eigen of voeg het als een onderdeel van een groter script . Typ elke regel in de volgende stappen gevolgd door de Enter toets

openen Bestand 2 , " filename.ext " of sterven " $ \\ n " ; .

Deze lijn wordt geopend het bestand dat de lege regels die u wilt verwijderen heeft . De ' of sterven " $ ! \\ N " " commando vertelt het script dat als er een fout in het script te stoppen en uit te printen de fout.
3

openen OUT , ​​" Tijdelijk bestand . $ $ "of sterven " $ \\ n " ; !

Deze lijn creëert een tijdelijk bestand om de resultaten op te slaan
4

terwijl ( ) {
.

regel maakt het begin van de lus die al het werk doet . De " terwijl" commando vertelt het systeem dat zolang er nog een lijn in het dossier van de code binnen de { } en uitgevoerd moeten worden .
5

volgende als /^ \\ s * $ /;

Deze tekst zegt dat de lijn die het script momenteel op zoek is naar om te zien of het bevat alleen witruimte tekens , zoals een tab of een spatie te testen . De " /^ \\ s * $ /" is de test . Als dat alles is dat deze lijn dan bevat voeren de " volgende" commando dat het script om terug te gaan naar de " while ( ) { " lijn naar de volgende regel in het bestand te krijgen zonder dat er iets geschreven om de tijdelijke vertelt . bestand

druk 6 OUT , ​​$ _ ; }

Sinds de " volgende" commando werd niet uitgevoerd , dan is de lijn mag niet leeg zijn . Dus , deze regel stuurt de gegevens af te drukken naar het tijdelijke bestand . De " } " is deel van de houder voor de lus die u gemaakt met "terwijl . ' Wanneer het script tegenkomt , zal het script terug te gaan naar de " terwijl" commando en probeer een andere lijn te testen krijgen . Als er niet meer regels in het bestand , dan is de lus wordt verlaten en het script zal gaan naar de volgende opdracht

dicht Bestand 7 ; . Sluiten OUT ;

Nadat er zijn geen lijnen meer die moeten worden gecontroleerd deze twee commando's dicht zowel het originele bestand en het tijdelijke bestand dat is gemaakt , wat betekent dat de bestanden niet meer kunnen worden bewerkt .

rename 8 ( "bestandsnaam . ext " , " filename.bak " ) or die " Fout bij hernoemen : . $ \\ n " ;

Deze lijn hernoemt het originele bestand te filename.bak zodat het kan worden bewaard als het weer nodig is < br >

rename ( " . tempfile $ $ " , " filename.ext " ) of 9 sterven " Fout bij hernoemen : $ ! " ;

Deze lijn hernoemt het tijdelijke bestand dat u hebt gemaakt . om de naam van het oorspronkelijke bestand , het overschrijven van het oorspronkelijke bestand met de nieuwe file

het voltooide script moet er zo uitzien :

geopend fILE
, " filename.ext " of sterven ' $ ! \\ n " ; openen OUT , ​​" tempfile $ $ "of sterven " $ \\ n " ; . ! terwijl ( ) { volgende als /^ \\ s * $ /; uitprinten , $ _ ; } Bestand sluiten ; sluit OUT ; rename ( " bestandsnaam.ext " , " filename.bak " ) or die " Fout in hernoemen : $ \\ n"; rename ( " . tempfile $ $ " , " filename.ext " ) or die " Fout in rename : $! " ;