Re: [PERL] validering af emailadr

[sslug@sslug (Lars G. T. Jorgensen)]

Peter Makholm <sslug@sslug> writes:

> "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.
> 

use Email::Valid;

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

-- 
Mvh|Regards, Lars
System administrator     | Student 
Bioinformatics Centre    | Department of Computer Science  
University of Copenhagen | University of Copenhagen
http://www.binf.ku.dk    | http://www.diku.dk
When's the last time you used duct tape on a duct? -- Larry Wall