| Home  | Υλικό υπολογιστών  | Δικτύωση  | Προγραμματισμός  | λογισμικό  | ερώτηση  | συστήματα  |  
Προγραμματισμός  
  • C /C + + Προγραμματισμός

  • Προγραμματισμός Υπολογιστών Γλώσσες

  • Δελφοί Προγραμματισμός

  • Προγραμματισμός Java

  • JavaScript Προγραμματισμός

  • PHP /MySQL Προγραμματισμός

  • Perl Προγραμματισμός

  • Python Προγραμματισμός

  • ρουμπίνι Προγραμματισμός

  • Visual Βασικά Προγραμματισμός
  •  
    Γνώση Υπολογιστών >> Προγραμματισμός >> Perl Προγραμματισμός >> Content
    Πώς να αφαιρέσει Λευκά Lines Από ένα αρχείο σε Perl
    Κάνοντας τις κενές γραμμές σε ένα σενάριο Perl που δημιουργείτε είναι ένα εύκολο πράγμα να κάνει . Μπορεί να είναι ότι κάτι δεν πάει καλά με το αρχείο σας ή μπορείτε απλά να πατήσετε το πλήκτρο Enter πάρα πολλές φορές . Δεν έχει σημασία πόσο συμβαίνει αυτό, το ακόλουθο script θα αφαιρέσει αυτές τις κενές γραμμές ( έστω και αν περιέχουν κρυφές χαρακτήρες ) . Αυτή η σύντομη γραφή όχι μόνο αφαιρεί κενές γραμμές, αλλά εξάγει ένα αρχείο Perl που είναι συμπαγές και έτοιμο για χρήση . Οδηγίες
    Η 1

    Χρησιμοποιήστε την ακόλουθη δέσμη ενεργειών με δική του ή να το προσθέσετε ως μέρος ενός ευρύτερου σεναρίου . . Τύπος σε κάθε γραμμή στα παρακάτω βήματα ακολουθούμενο από το πλήκτρο Enter 2

    ανοικτή ΑΡΧΕΙΟ , " filename.ext " ή να πεθάνουν " $ \\ n " ?

    Αυτή η γραμμή ανοίγει το αρχείο που έχει τις κενές γραμμές που θέλετε να αφαιρέσετε . Το « ή να πεθάνουν " $ ! \\ N " " την εντολή λέει το σενάριο ότι αν υπάρχει λάθος να σταματήσει το σενάριο και να εκτυπώσετε το σφάλμα .
    Εικόνων 3

    ανοίξει OUT , ​​" tempfile . $ $ " ή να πεθάνουν " $ \\ n " ? ! .

    Αυτή η γραμμή δημιουργεί ένα προσωρινό αρχείο για να αποθηκεύσετε τα αποτελέσματα
    Η 4

    ενώ ( ) {

    Αυτή η γραμμή δημιουργεί την έναρξη της βρόγχο που κάνει όλη τη δουλειά . Η "ενώ" η εντολή λέει το σύστημα που όσο υπάρχει και μια άλλη γραμμή στο αρχείο ο κώδικας μέσα στο { } και πρέπει να εκτελεσθεί .
    5

    επόμενη if /^ \\ s * $ /?

    το κείμενο λέει να δοκιμάσει τη γραμμή ότι το σενάριο αυτή τη στιγμή ψάχνει για να δούμε αν περιέχει μόνο λευκό χώρο χαρακτήρες, όπως μια καρτέλα ή ένα χώρο . Το " /^ \\ s * $ /" είναι η δοκιμή . Αν αυτό είναι το μόνο που αυτή η γραμμή περιέχει στη συνέχεια να εκτελέσει την " επόμενη " εντολή που λέει το σενάριο να πάει πίσω στο " while ( ) {" γραμμή για να πάρει την επόμενη γραμμή στο αρχείο χωρίς τίποτα να συνταχθεί στο προσωρινό αρχείο.
    Η 6

    εκτύπωση OUT , ​​$ _ ? }

    Δεδομένου ότι η " επόμενη " εντολή δεν εκτελέστηκε , τότε η γραμμή δεν πρέπει να είναι κενό . Έτσι , η γραμμή αυτή στέλνει τις πληροφορίες για να εκτυπώσετε το προσωρινό αρχείο . Η " } " αποτελεί μέρος του δοχείου για το βρόχο που δημιουργήθηκε με τη χρήση ", ενώ ". Όταν το σενάριο συναντά , το script θα πάει πίσω στην " ενώ " εντολή και να προσπαθήσει να πάρει μια άλλη γραμμή που πρόκειται να ελεγχθεί . Αν δεν υπάρχουν περισσότερες γραμμές στο αρχείο , τότε ο βρόχος θα πρέπει να αποχωρήσει και το script θα πάει στην επόμενη εντολή
    Η 7

    κοντά FILE ? . Κλείσει OUT ?

    Μετά από εκεί υπάρχουν περισσότερες γραμμές που πρέπει να ελεγχθούν αυτές οι δύο εντολές κοντά τόσο το αρχικό αρχείο και το προσωρινό αρχείο που δημιουργήθηκε , πράγμα που σημαίνει ότι δεν μπορεί πλέον να επεξεργαστεί τα αρχεία .
    8

    μετονομασία ( " όνομα αρχείου . ext " , " filename.bak " ) ή να πεθάνουν " Σφάλμα στην μετονομασία : $ \\ n " ?

    Αυτή η γραμμή μετονομάζει το αρχικό αρχείο για να filename.bak έτσι ώστε να μπορεί να διατηρηθεί , εάν αυτό είναι αναγκαίο και πάλι < . br > Τετάρτη 9

    μετονομασία ( " tempfile $ $ . " , " filename.ext " ) ή να πεθάνουν " Σφάλμα στην μετονομασία : ! $ " ?

    Αυτή η γραμμή μετονομάζει το προσωρινό αρχείο που δημιουργήσατε . στο όνομα του αρχικού αρχείου σας , αντικαθιστώντας το αρχικό αρχείο με το νέο αρχείο

    το ολοκληρωμένο σενάριο θα πρέπει να μοιάζει κάπως έτσι :

    ανοικτή ΑΡΧΕΙΟ , " filename.ext " ή να πεθάνουν " $ ! \\ n " ? ανοίξει OUT " . tempfile $ $ " ή να πεθάνουν " $ \\ n " ? ! ενώ ( ) { επόμενη if /^ \\ s * $ /? εκτυπώσετε OUT , ​​$ _ ? } στενή FILE ? κλείστε OUT ? μετονομασία ( " filename.ext " , " filename.bak " ) ή να πεθάνουν " Σφάλμα στην μετονομασία : $ \\ n" ? μετονομασία ( " tempfile $ $ . " , " filename.ext " ) ή να πεθάνουν " Σφάλμα στο μετονομασία : $ " ?
    Η
    εικόνων !

    Previous :

    next :
      Σχετικά Άρθρα
    ·Τρόπος εντοπισμού σφαλμάτων Perl 
    ·Σύγκριση της Perl με Python 
    ·Πώς να μάθετε Perl 
    ·Πώς να χρησιμοποιήσετε Perl Code γάντζοι 
    ·Πώς να μετατρέψετε ένα String με INT PERL 
    ·Πώς να δημιουργήσετε ένα PERL Αρχείο 
    ·Πώς να δημιουργήσετε εκθέσεις με Perl 
    ·Πώς να Χρησιμοποιήστε το Σημειωματάριο για …
    ·Πώς να καλέσετε Συνέλευση ρουτίνες Από Perl 
    ·Πώς να δημιουργήσετε ένα απλό αρχείο 
      Προτεινόμενα άρθρα
    ·Πώς να πάρει τη διαφορά των δύο ημερομηνιών …
    ·Πώς να επιλέξετε πολλαπλά σε MySQL 
    ·Παραλλαγή Τύπος δεδομένων 
    ·Πώς να κάνει ένα δροσερό Loading Bar σε Visual Basic 
    ·Πώς να παίξετε ήχου σε Silverlight 
    ·Πώς να μετατρέψετε ένα Count σε μια σειρά σε PHP 
    ·Πώς να υπολογίσετε G02 Κωδικοί για Mills 
    ·Πώς να στείλετε ένα μήνυμα κειμένου με PHP Scrip…
    ·PHP Κώδικες στον ίδιο διακομιστή , όπως MySQL Serve…
    ·Διαδραστική Βοήθημα για το Top PHP 
    Copyright © Γνώση Υπολογιστών http://el.wingwit.com