1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#!/usr/bin/perl
sub valideMail {
my ($mail)=@_;
$mail=~ s/\.\@/\@/;
if ($mail eq '') { return(0);}
if ($mail!~ /\@/) { return(0);}
if ($mail=~ /\@.*\@/) { return(0);}
if ($mail=~ /[\,|\s|\;]/) {return (0)};
if ($mail =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/ ||
($mail !~ /^.+\@localhost$/ &&
$mail !~ /^.+\@\[?(\w|[-.])+\.[a-zA-Z]{2,3}|[0-9]{1,3}\]?$/)) {
return(0);
} else {
return(1);
}
}
|
Informations rapides
