Datamaskin
  | Hjem | Hardware | Nettverk | Programmering | Software | Feilsøking | Systems | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringsspråk
  • Delphi Programming
  • Java Programming
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl Programming
  • Python Programming
  • Ruby Programming
  • Visual Basics Programming
  •  
    Datamaskin >> Programmering >> Perl Programming >> Content
    Slik fjerner tomme linjer fra en fil i Perl
    Putting blanke linjer i et Perl-skript du oppretter er en enkel ting å gjøre. Det kan være at noe er galt med filen din , eller du bare trykke på Enter-tasten for mange ganger . Uansett hvordan det skjer , vil følgende skript fjerne disse tomme linjer ( selv om de inneholder skjulte tegn ) . Denne korte skript ikke bare fjerner tomme linjer , men sender ut et Perl -fil som er kompakt og klar til bruk . Instruksjoner
    en

    Bruk følgende skript på egen hånd eller legge det til som en del av et større manus . Skriv inn hver linje i følgende trinn etterfulgt av Enter
    2

    open FILE, " filnavn.typ " eller dø " $ \\ n "; .

    Denne linjen kan åpnes filen som har de tomme linjene du ønsker å fjerne. The ' eller dø " $! \\ N" " kommandoen forteller manuset at hvis det er en feil å stoppe skriptet og skrive ut feilen.
    3

    åpne OUT , ​​" tempfile . $ $ "eller dø " $ \\ n "; !

    Denne linjen opprettes en midlertidig fil for å lagre resultatene
    4

    while ( ) {
    .

    Denne linjen skaper starten av løkken som gjør alt arbeidet . Den "mens " kommandoen forteller systemet at så lenge det er en annen linje i filen koden i { og } trenger å bli henrettet .
    5

    neste hvis /^ \\ s * $ /;

    Denne teksten sier å teste linjen at skriptet er for tiden å se på for å se om den bare inneholder white -space figurer som en fane eller et mellomrom. Den " /^ \\ s * $ /" er prøven. Hvis det er alt som denne linjen inneholder utføre deretter på " neste "-kommandoen som forteller skript for å gå tilbake til " while ( ) {" linje for å få den neste linjen i filen uten at noe blir skrevet til den midlertidige . fil
    6

    print OUT , ​​$ _ ;}

    Siden " neste "-kommandoen ble ikke utført , da linjen må ikke være tom. Så , sender denne linjen informasjonen til å skrive ut til den midlertidige filen . Den " }" er en del av beholderen for løkken som du opprettet ved hjelp av "mens ". Når skriptet møter det , vil skriptet gå tilbake til "mens "-kommandoen og prøve å få en annen linje for å bli testet . Hvis det ikke er flere linjer i filen, så sløyfen vil bli gått ut og scriptet vil gå til neste kommando
    7

    nær FIL ; . Lukke OUT ;

    Etter det ikke er flere linjer som må sjekkes disse to kommandoene nære både den opprinnelige filen og den midlertidige filen som ble opprettet , noe som betyr at filene kan ikke lenger redigeres .
    8

    endre navn ( " filnavn . ext "," filename.bak ") eller dø " Feil i nytt navn : . $ \\ n ";

    Denne linjen nytt navn til den opprinnelige filen til filename.bak slik at det kan holdes hvis det er nødvendig igjen

    9

    endre navn ( " . tempfile $ $" , " filnavn.typ ") eller dø " Feil i nytt navn : $! ";

    Denne linjen gir den midlertidige filen du opprettet . til navnet på den opprinnelige filen , overskrives den opprinnelige filen med den nye filen

    ferdig manus skal se slik ut : en

    open fILE, " filnavn.typ " eller dø " $! \\ n "; åpne OUT , ​​" tempfile $ $ "eller dø " $ \\ n "; . ! while ( ) { neste hvis /^ \\ s * $ /; skrive ut , $ _ ;} tett FIL ; lukk ut , endre navn ( " filnavn.typ ", " filename.bak ") eller dø " Feil i nytt navn : $ \\ n"; endre navn ( " . tempfile $ $" , " filnavn.typ ") eller dø " Feil i rename : $ ";

    früher :

     Weiter:
      Relatert Artike
    ·Hvordan å få en IPBFree Exploit Med Perl 
    ·Slik installerer PPM Fra CPAN 
    ·Hvordan oppdatere PEAR Med Fedora 
    ·Slik installerer Perl på Windows XP 
    ·Hva er meningen med pseudokode 
    ·Hvordan bruke Strict i et Perl Script 
    ·Hvordan åpne en fil og skrive en linje til en annen fi…
    ·Perl Script Beregning 
    ·Hvordan tillate Perl i Snow Leopard 
    ·Hvordan lage en PDF fra en tekst med Perl 
      Anbefalte artikler
    ·Slik konverterer til Binary i VBA 
    ·The Back funksjon i HTML Coding 
    ·Slik fjerner linjeskift Perl 
    ·Hva er de to Anvendelser av + Operatør i Java 
    ·Slik konverterer en STD String til et heltall 
    ·Hvordan passere en streng åpne en ifstream 
    ·Slik filtrerer du filer fra Project Explorer Vis i Ecli…
    ·Hvordan lage Java Script 
    ·Hva er Python for Windows PC 
    ·Hvordan lage en tekstfil for MySQL 
    Copyright ©  Datamaskin  http://www.datamaskin.biz/