Perl valid email regular expression
Tuesday, February 1st, 2011# Check for valid email address
/
^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*$
/
# Check for valid email address
/
^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*$
/
$phone = 3334449999;
$phone = preg_replace(“/([0-9a-zA-Z]{3})([0-9a-zA-Z]{3})([0-9a-zA-Z]{4})/”, “($1) $2-$3″, $phone);
function valPassword($Password){
$pRegex = ‘/(?-i)(?m)^(?=.*?\d)(?=.*?[a-z])(?=.*?[A-Z])[a-zA-Z].{6,20}$/’;
if ( preg_match($pRegex, $Password)) { return TRUE; }
return FALSE;
}
Or this also works nicely:
function valPassword($Password)
{
if(
ctype_alnum($Password) // numbers & digits only
&& strlen($Password)>6 // at least 7 chars
//&& strlen($password)<21 // at most 20 chars
&& preg_match(‘`[A-Z]`’,$Password) // at least one upper case
&& preg_match(‘`[a-z]`’,$Password) // at least one lower case
&& preg_match(‘`[0-9]`’,$Password) // at least one digit
)
{
return TRUE;
}
return FALSE;
}
Resource: