Πώς να Αφαίρεση Όλων Λευκό χώρους σε ένα String με Κανονικές Εκφράσεις σε Perl

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

1 Ανοίξτε ένα αρχείο προγράμματος Perl , και τοποθετήστε τον κέρσορα στην αρχή 2

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

Sub trim ( $ ) {

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

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

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

}

Αυτή η λειτουργία χρησιμοποιεί τον τελεστή αντικατάστασης "s ///" για να ταιριάζει με τα λευκά διαστήματα και να τα αφαιρέσετε . Η " \\ s " ταξικός χαρακτήρας ταιριάζει με όλα τα λευκά χώρο χαρακτήρες και τους αντικαθιστά με τίποτα . Με άλλα λόγια , τα καταργεί . Επιστρέφει ένα string που περιέχει λευκό χώρο χαρακτήρες οπουδήποτε
εικόνων 3

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

Υπο ltrim ( $ ) { $

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

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

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

}

Αυτή η λειτουργία αφαιρεί μόνο οδηγεί λευκά διαστήματα πριν από κάθε άλλο χαρακτήρες . Οι " ^ \\ s ", λέει για να ταιριάζει με λευκά διαστήματα μόνο μέχρι το πρώτο μη - άσπρο διάστημα χαρακτήρα , στη συνέχεια, αφαιρέστε τους
Η

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

Υπο rtrim ( $ ) {

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

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

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

}

Αυτή η λειτουργία αφαιρεί μόνο την ηγετική white spaces στο τέλος του string . Το " s + $ ", λέει για να ταιριάζει με λευκά διαστήματα μόνο μετά από όλες τις μη - λευκό χώρο χαρακτήρες , στη συνέχεια, αφαιρέστε τους .
5

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