[Esempio] Uso delle regex per validare un indirizzo mail

[imported_opocaj]

Vi posto questo piccolo esercizio che ho fatto per capire le regex in Perl, potrebbe tornare utile a chi è alle prime armi con questo lingguaggio. Il codice prende in input un presunto indirizzo mail e dice se l'indirizzo è verosimile o no.

###############
# Autore: opocaj
# Linguaggio: Perl
###############
print "Inserisci l'indirizzo mail: ";
$mail=<STDIN>;
# Prende in input l'indirizzo mail da validare.
if ($mail=~ /[\w,\d]+@[\w,\d]+.[a-z]{2,3}/)
# Esegue il controllo dell'indirizzo, \w indica tutte le lettere, \d tutti i numeri. I numero tra {} indica la lunghezza della parte precedente di regex
# In pratica questa regex controlla se c'è una sequenza di lunghezza variabile (il segno + dopo indica che il blocco precedente può ricorrere più di una volta)
# seguita da una @, poi un altra sequenza di lunghezza variabile seguita da un punto, poi una parte contenente solo lettere minuscole ([a-z]) e lunga o due o tre caratteri ({2,3})
{
  print "Indirizzo corretto.";
} else {
  print "Indirizzo non corretto.";
}
# Stampa a schermo se l'indirizzo è corretto o no

Il codice è commentato, se avete dubbi chiedete.