Ako odstrániť prázdne riadky zo súboru v Perlu

Uvedenie prázdne riadky do skript v Perlu , ktorý vytvárate , je ľahké to urobiť . Je možné , že je niečo s vašim súborom zle , alebo si jednoducho stlačte klávesu Enter príliš mnohokrát . Bez ohľadu na to , ako sa to stane , bude nasledujúci skript odstrániť tieto prázdne riadky ( aj keď obsahujú skryté znaky ) . Tento krátky skript odstraňuje nielen prázdne riadky , ale na výstupe súbor Perl , ktorý je kompaktný a je pripravený na použitie . Pokyny dovolená 1

použite nasledujúci skript na jeho vlastné , alebo ho pridať ako súčasť väčšieho skriptu . . Typ v každom riadku v nasledujúcich krokoch nasleduje klávesom Enter
2

otvoriť súbor , " filename.ext " alebo zomri " ​​$ \\ n ! " ;

Tento riadok sa otvorí súbor , ktorý má prázdne riadky , ktoré chcete odstrániť . " Alebo zomrieť " $ ! \\ N " " Príkaz hovorí skript , ktorý v prípade , že je chyba zastaviť skript a vytlačiť chyby .
3

otvoriť OUT , ​​" tempfile . $ $ " , alebo zomrieť " $ \\ n " ; ! .

Tento riadok vytvorí dočasný súbor pre uloženie výsledkov
4

while ( ) {

Tento riadok vytvorí začiatok slučky , ktorá robí všetky práce . " Zatiaľ čo " príkaz povie systému , ktorý tak dlho , ako je tu ďalší riadok v súbore kódu v { a } potrebuje byť vykonaný .
5

ďalšie if /^ \\ s * $ /;

Tento text hovorí , že testovanie riadok skriptu je v súčasnej dobe pri pohľade na , či obsahuje len prázdny znak , napríklad tabulátor alebo medzera . " /^ \\ S * $ /" , je test . Ak to je všetko , čo tento riadok obsahuje potom spustite " Ďalšie " príkaz , ktorý hovorí , skript sa vrátiť do " while ( ) { " linka získať ďalší riadok v súbore , bez toho, aby niečo bol zapísaný do dočasného . súbor
6

vytlačiť , $ ​​_ ; }

Vzhľadom k tomu , " ďalšie " Príkaz nebol vykonaný , potom čiara nesmie byť prázdny. Takže , tento riadok pošle informácie pre tlač do dočasného súboru . " } " Je súčasťou kontajnera pre sláčiky , ktorú ste vytvorili pomocou " chvíľu . " Keď to scenár narazí , bude skript vrátiť do " while " príkaz , a pokúsiť sa získať ďalší riadok , ktoré majú byť testované . Ak nie sú žiadne ďalšie riadky v súbore , potom sa slučka sa ukončí a skript bude ísť do ďalšieho príkazu
7

Zavrieť súbor ; . Uzavrieť ;

Po tam žiadne ďalšie riadky , ktoré je potrebné skontrolovať tieto dva príkazy blízko ako pôvodný súbor a dočasný súbor , ktorý bol vytvorený , čo znamená , že súbory už nemožno upravovať.
8

premenovať ( " názov súboru . ext " , " filename.bak " ) or die " Chyba pri premenovaní : $ \\ n " ;

Táto linka premenuje pôvodný súbor filename.bak , takže to môže byť , ak je to potreba znovu < . br >
9

rename ( " tempfile $ $ . " , " filename.ext " ) or die " Chyba pri premenovaní : $ " ;

Táto linka premenuje dočasný súbor , ktorý ste vytvorili . názvu pôvodného súboru , prepíšte pôvodný súbor novým súborom

dokončil skript by mal vyzerať takto :

otvoriť súbor , " filename.ext " alebo zomrieť " $ ! \\ n " ; otvoriť OUT " . tempfile $ $ " , alebo zomrieť " $ \\ n " ; ! while ( ) { ďalšie if /^ \\ s * $ /, vytlačiť , $ ​​_ ; } blízko FILE ; uzavrieť , premenovať ( " filename.ext " , " filename.bak " ) or die " Chyba pri premenovaní : ! $ \\ n" ; premenovať ( " tempfile $ $ . " , " filename.ext " ) or die " Chyba v premenovanie : $ " ;
!

• Predchádzajúca strana: Ako previesť Perl skript na samorozbaľovací EXE 
• Ďalšia strana: Perl Script Výpočet