Πώς να ελέγξει ένα Perl Διεύθυνση Email

Perl είναι μια γλώσσα δέσμης ενεργειών που χρησιμοποιείται ευρέως σε μηχανήματα Linux και servers για να αυτοματοποιήσουν τις κοινές διοικητικά καθήκοντα , όπως τον έλεγχο μια διεύθυνση ηλεκτρονικού ταχυδρομείου δίνεται από το χρήστη να δει αν είναι έγκυρη και ταιριάζει το πρότυπο διεύθυνση ηλεκτρονικού ταχυδρομείου . Για να το κάνετε αυτό , το κλειδί είναι η σύνταξη που ταιριάζουν μοτίβο γνωστό ως " Regular Expressions ". Οδηγίες
Η

1 Ανοίξτε ένα νέο αρχείο κειμένου . Μπορείτε να χρησιμοποιήσετε οποιοδήποτε πρόγραμμα επεξεργασίας κειμένου που προτιμάτε , από το Windows Notepad με μια ειδική PERL Integrated Development Environment ( IDE ) , όπως EPIC ή Padre . Ωστόσο, η πλήρης κλίμακας επεξεργαστές κειμένου όπως το Microsoft Word είναι ακατάλληλες , αφού δεν το κάνουν, από προεπιλογή , η παραγωγή απλού κειμένου . 2

Τόνισε πως αυτό είναι ένα αρχείο perl επικολλώντας την ακόλουθη γραμμή στην κορυφή του αρχείου κειμένου : !

# /usr /bin /perl εικόνων
3

Αποθηκεύστε μια διεύθυνση ηλεκτρονικού ταχυδρομείου στη μνήμη :

$ email = " myemail \\ @ email.com " ?

Παρατηρήστε ότι το« σύμβολο @ " θα πρέπει να δραπετεύσει ( προηγείται ) με μια ανάστροφη κάθετο για να αφήσει perl γνωρίζουν ότι είναι μέρος του κειμένου και όχι τον κωδικό
Η 4 .

το Σύγκριση με τη δοκιμασία email κανονική έκφραση για να δείτε αν ταιριάζει με το μοτίβο ενός τυπικού email :

if ( $ email = ~ m /^ [ A - Za - z0 - 9._ % + - ] + @ [ A - Za - z0 - 9 - ] + \\ [ A - Za - z ] { 2,4 } $ /) {

print " Ναι . "? . .

} else {

print "Όχι " ?

}

ο χειριστής " = ~ " λέει Perl να συγκρίνουν ένα string σε μια κανονική έκφραση , και τα ακόλουθα κανονική έκφραση υπαγορεύει ότι η πρόταση θα πρέπει να περιλαμβάνει μια σειρά από γράμματα και αριθμούς , που ακολουθείται από ένα σύμβολο @ , ακολούθησε και πάλι μια σειρά από αριθμούς και τους χαρακτήρες και , τέλος , τουλάχιστον μια επέκταση μεταξύ δύο και τεσσάρων χαρακτήρων σε μέγεθος
<. br > 5

Αποθηκεύστε την εργασία σας με το όνομα του αρχείου " emailtest.pl . " Μπορείτε να εκτελέσετε τη δοκιμή πληκτρολογώντας " perl emailtest.pl " σε ένα τερματικό ή γραμμή εντολών .
Η
εικόνων