Πώς να αντικαταστήσει τελικών διαστημάτων με Perl Regular Expressions

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

1 Ανοίξτε ένα νέο πρόγραμμα Perl . . Τοποθετήστε το δρομέα στην αρχή του αρχείου 2

Πληκτρολογήστε τον ακόλουθο κώδικα :

sub trim ( $ ) { $

μου String = στροφή ?

$ string = ~ s /\\ s + $ //?

επιστροφή $ string?

}

Αυτή η λειτουργία δημιουργεί ένα προσωρινό αρχείο που λαμβάνει την τιμή της συμβολοσειράς πέρασε στη συνάρτηση. Στη συνέχεια, χρησιμοποιεί μια κανονική έκφραση για να αφαιρέσετε τα κενά διαστήματα . Το "\\ s " αφηγείται τη λειτουργία για να δούμε μόνο για λευκούς χαρακτήρες διαστήματος και το "$" , λέει να δούμε μόνο στο τέλος του string . Μετά αφαιρέστε τα κενά διαστήματα , η συνάρτηση επιστρέφει τη μεταβλητή στο κυρίως πρόγραμμα .
Εικόνων 3

Αποθηκεύστε το αρχείο προγράμματος .
Η
εικόνων