Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> perl Programmering >> Content

    Hur man tar bort tomma rader från en fil i Perl

    sätta tomma rader i ett Perl-skript som du skapar är en lätt sak att göra . Det kan bero på att något är fel med din fil eller du helt enkelt trycker på Enter för många gånger . Oavsett hur det händer , kommer följande skript bort dessa tomma rader ( även om de innehåller dolda tecken ) . Detta kort manus inte bara tar bort tomma rader , men matar ett Perl -fil som är kompakt och klar för användning . Instruktioner
    1

    Använd följande skript på egen hand eller lägga den som en del av ett större manus . Skriv in varje rad i följande steg följt av Enter
    2

    open FILE , " filnamn.ext " or die " $ \\ n "; .

    Denna linje öppnas filen som har tomma rader du vill ta bort . Den " eller dö " $ ! \\ N " " kommandot berättar skript som om det finns ett fel att stoppa skriptet och skriva ut felet . Addera 3

    öppet ut , " cacheminnet . $ $ " eller die " $ \\ n "; !

    Denna rad skapar en temporär fil för att lagra resultaten
    4

    samtidigt ( ) {
    .

    Denna linje skapar början av slingan , som gör allt arbete . Den " medan " kommandot talar om för systemet att så länge det finns en annan rad i filen koden inom { och } behöver verkställas .
    5

    nästa om /^ \\ s * $ /;

    Denna text säger att testa den linje som skriptet för närvarande tittar på att se om det bara innehåller blanktecken , t.ex. en flik eller ett utrymme . Den " /^ \\ s * $ /" är testet . Om det är allt som denna linje innehåller då utföra " nästa " kommando som talar om för skriptet att gå tillbaka till " medan ( ) { " linje för att få nästa rad i filen utan att någonting skrivs till den tillfälliga . filen
    6

    skriva ut , $ _ ; }

    Eftersom " next " -kommandot inte utfördes , då linjen inte vara tomt . Så sänder denna linje den information du vill skriva ut till den temporära filen . Den " } " är en del av behållaren för slingan som du skapade med " samtidigt . " När skriptet stöter det kommer skriptet att gå tillbaka till " medan " kommandot och försöka få en annan linje som ska testas . Om det inte finns fler rader i filen , då slingan kommer att avslutas och manuset kommer att gå till nästa kommando
    7

    nära FILE , . Stänga ute ,

    Efter det finns inga fler rader som måste kontrolleras dessa två kommandon nära både den ursprungliga filen och den temporära filen som skapades , vilket innebär att filerna kan inte längre redigeras .
    8

    rename ( " filnamn . ext " , " filename.bak " ) or die " Fel i rename : ! . $ \\ n ";

    Denna linje döper den ursprungliga filen filename.bak så det kan hållas om det behövs igen

    9

    rename ( " . cacheminnet $ $ " , " filnamn.ext " ) or die " Fel i rename : $ ! " ,

    Denna linje döper den temporära filen som du skapade . namnet på den ursprungliga filen , skriva över den ursprungliga filen med den nya filen

    avslutade skriptet ska se ut så här :

    open fILE , " filnamn.ext " or die " $ ! \\ n "; öppet ut , " cacheminnet $ $ " eller die " $ \\ n "; . ! while ( ) { nästa om /^ \\ s * $ /, skriva ut , $ _ ; } close FILE ; stänga ute , rename ( " filnamn.ext " , " filename.bak " ) or die " Fel i rename : $ \\ n "; rename ( " . cacheminnet $ $ " , " filnamn.ext " ) or die " Fel i rename : $ " , Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man gör en Twitter Stream API i Perl
    ·Hur man lägger in en lång sträng till ett Perl Array…
    ·Hur man fångar Standard Input i Perl
    ·Hur man använder Strict i Perl
    ·Hur man lär Perl
    ·Konvertera platta filer till XML
    ·Hur man skriver Perl Script
    ·Hur man tar bort dubbletter från Array Perl
    ·Perl Script File Tutorial
    ·Hur Profil Perlprogram
    Utvalda artiklarna
    ·SQL Fundamentals Träning
    ·Hur man läser en Random Access-fil
    ·Hur att dölja en PHP fil Extension
    ·MySQL Vänster Gå Tutorial
    ·MySQL Replikering Tutorial
    ·PHP MySQL Nytt konto Tutorial
    ·Hur hitta den största gemensamma nämnaren av två tal…
    ·Vilket språk Är Android appar skrivna i
    ·Hur Ping ett intervall IP-adresser
    ·Hur att kontrollera Windows Behörigheter Network Share…
    Copyright © Dator Kunskap http://www.dator.xyz