Re: [PERL] validering af emailadr

[Peter Makholm <sslug@sslug>]

"Christian Wix" <sslug@sslug> writes:

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

For det første mangler du en [ efter @'et.

For det andet betyder [A-z] ikke nødvendigvis hvad du tror. Brug [a-z]
istedet og lav en case-insensitive match ved at bruge /i-optionen.

For det tredje så kan nye gTLD'er godt være mere end 4 tegn lange.


(Og så ignorerer vi selvfølgelig alle de andre lovlige email-adresser
som du ikke matcher)

-- 
 Peter Makholm     |     If you can't do any damage as root, are you still
 sslug@sslug |                                          really root?
 http://hacking.dk |                       -- Derek Gladding about SELinux