Answers for "match emails regex"

2

email regex

[w._%+-]+@[w.-]+.[a-zA-Z]{2,3}
Posted by: Guest on June-10-2020
0

regex validate email

# Language: Perl

sub Validate_Email($)
{
   my $sEmail = $_[0];
   my $sRetMsg = "";

   my $sUserNmRegex = "^[[:alnum:]]+([.!#$%&'*+-/=?^_'{|]?[[:alnum:]]+)*";
   my $sDomainRegex = "@[[:alnum:]]+([.-]{1}[[:alnum:]]+)*";
   my $sEndRegex = "([.]{1}[[:alnum:]]+)+";

   #  Work
   #--------#

   if ($sEmail =~ /$sUserNmRegex$sDomainRegex$sEndRegex$/) {
      $sRetMsg = "Email is valid";
   }
   else {
      $sRetMsg = "Email is not valid";
   }

   return $sRetMsg;
}

my $sEmail = '[email protected]';
print "[Email:$sEmail] : " . Validate_Email($sEmail) . "n";

# OUTPUT -> [Email:[email protected]] : Email is valid
Posted by: Guest on April-17-2020

Code answers related to "Javascript"

Browse Popular Code Answers by Language