Πώς να αφαιρέσει String σε Perl

Όταν εργάζεστε με αρχεία κειμένου ή βάσεις δεδομένων που χρειάζεται συχνά να εντοπιστούν και να εξαλειφθούν ορισμένες γραμμές ή χορδές . Μια συμβολοσειρά είναι ένα κομμάτι του κειμένου που αποτελείται από περισσότερες από μία λέξεις . Η γλώσσα προγραμματισμού Perl υποστηρίζει μια σειρά από χαρακτηριστικά όπως κανονικές εκφράσεις . Μια κανονική έκφραση περιγράφει ένα σχέδιο που σας επιτρέπει να ταιριάζει εύκολα μια σειρά που να ικανοποιεί το πρότυπο αναζήτησης και , στη συνέχεια, αφαιρέστε το αν είναι απαραίτητο . Οδηγίες
Η 1

Καθορισμός κριτηρίων για την άρση ένα string . Για παράδειγμα , να αποφασίσει αν θα πρέπει να αφαιρέσετε ένα string που αρχίζει με τη λέξη "Money ". 2

Χρησιμοποιήστε το Perl loop " foreach " για να διαβάσετε το σύνολο των δεδομένων που ένα τέτοιο αρχείο για να βρείτε το string στην ερώτηση :

foreach $ string ( @ δεδομένων) { }

σε αυτό το παράδειγμα , η συστοιχία ( @ δεδομένων) περιέχει τα δεδομένα από ένα αρχείο
.
Η 3

Χρησιμοποιήστε την εντολή " = ~ s " στο εσωτερικό του βρόχου να υποκαταστήσει την αντιστοιχισμένη κορδόνι με τίποτα ( //) που έχει ως αποτέλεσμα την αφαίρεση του string .

$ string = ~ s /Money + //? . .

Σημειώστε ότι η συμβολοσειρά αρχίζει με τη λέξη "Money" και η κανονική έκφραση ( . + ) ταιριάζει με οποιαδήποτε άλλη χαρακτήρες στη σειρά εικόνων