Miten poistaa Blank linjattiedosto Perl

Käyttöönotto tyhjä rivit Perl-skripti olet luomassa on helppoa tehdä.Voi olla, että jotain on vialla tiedosto tai yksinkertaisesti paina Enteriä liian monta kertaa.Ei ole väliä kuinka se tapahtuu, seuraava skripti poistaa nämä tyhjät rivit (vaikka ne sisältävät piilossa merkkiä).Tämä lyhyt kirjoitus ei vain poistaa tyhjät rivit, mutta tuottaa Perl-tiedosto, joka on pienikokoinen ja käyttövalmis.

Ohjeet

  1. käyttö seuraava kirjoitus sellaisenaan tai lisätä sen osana suurempaa kirjoitus.Kirjoita jokaisen rivin seuraavissa Steps jälkeen Enter-näppäintä.

  2. open file "tiedostonimi.tun" tai kuole "$! \ N";

    Tämä linja avaa tiedoston, tyhjät rivit haluat poistaa."Tai kuole" $! \ N "" komento kertoo skripti, joka jos on virhe lopettaa käsikirjoituksen ja tulostaa virhe.

  3. auki ulos, "tempfile. $$" Tai kuole "$! \ N";

    Tämä linja luo tilapäisen tiedoston tallentaa tulokset.

  4. kun (& lt; KUVA & gt;) {

    Tämä linja luo alku silmukan, joka tekee kaiken työn."Kun" komento kertoo järjeste

    lmälle, että niin kauan kuin on olemassa toinen rivi tiedostossa koodiin {ja} on suoritettu.

  5. seuraavalle jos / ^ \ s * $ /;

    Tämä teksti sanoo testata linja, joka kirjoitus tutkii parhaillaan, onko se vain sisältää white-space merkkejä kuten välilehti tai välilyönti."/ ^ \ S * $ /" on testi.Jos tämä on kaikki, että tämä rivi sisältää jälkeen suorita "seuraava" komento, joka kertoo kirjoitus palata ", kun (& lt; KUVA & gt;) {" linja saada seuraavalle riville tiedosto ilman mitään kirjoitetaan väliaikainentiedosto.

  6. tulostaa, $ _;
    }

    Koska "seuraava" komento ei suoriteta, sitten linja ei saa olla tyhjä.Joten, tämä linja lähettää tiedot tulostaa väliaikainen tiedosto."}" On osa astiaan silmukka, jonka olet luonut "aikaa."Kun käsikirjoitus kohtaa se, käsikirjoitus palaa "kun" komento ja yrittää saada toinen linja on testattava.Jos ei ole enää rivit tiedoston, niin silmukka on lähtenyt ja käsikirjoituksen menee seuraavaan komentoon.

  7. lähellä TIEDOSTO;lähellä;

    jälkeen ei ole enempää linjat, jotka on tarkastettava nämä kaksi komentoa lähellä sekä alkuperäisen tiedoston ja tilapäisen tiedoston, joka on luotu, eli tiedostoja ei voi enää muokata.

  8. nimetä ("tiedostonimi.tun", "tiedostonimi.bak")
    tai kuole "Virhe Nimeä: $! \ N";

    Tämä linja nimeää alkuperäisen tiedoston tiedostonimi.bak joten se voidaan säilyttää, jos sitä tarvitaan jälleen.

  9. nimetä ("tempfile. $$", "Tiedostonimi.tun")
    tai kuole "Virhe Nimeä: $!";

    Tämä linja nimeää väliaikaisen luomasi nimen alkuperäinen tiedosto, korvaa alkuperäisen tiedoston kanssa uuden tiedoston.

    valmistunut käsikirjoitus pitäisi näyttää tältä:

    open file "tiedostonimi.tun" tai kuole "$! \ N";
    auki ulos, "tempfile. $$" Tai kuole "$! \ N";
    taas (& lt; KUVA & gt;) {
    seuraavalle jos / ^ \ s * $ /;
    tulostaa, $ _;
    }
    lähellä TIEDOSTO;lähellä;
    nimetä ("tiedostonimi.tun", "tiedostonimi.bak")
    tai kuole "Virhe Nimeä: $! \ N";
    nimetä ("tempfile. $$", "Tiedostonimi.tun")
    tai kuole "Virhe Nimeä: $!";

Vinkkejä & amp;Varoitukset

  • tiedostojen nimet voi olla polku tietoa lisätty ne, kuten "/this/is/the/path/filename.ext" Tämä on niin kirjoitus ei tarvitse sijoittaa samaan kansioonkuten tiedoston työskennellyt.Jos jotain tapahtuu uusille tiedosto yksinkertaisesti nimetä varmuuskopio tiedosto "tiedostonimi.bak" ja "tiedostonimi.tun" palata takaisin alkuperäiseen tiedostoon.
  • Varmista, että olet todella täytyy poistaa rivit tiedostosta.Muuten tiedosto voi tulla hyödytön.
394
0
2
Perl Ohjelmointi