perl validate email
# Language: Perl
sub Validate_Email($);
my $sEmail = '[email protected]';
print "For email ['$sEmail'] : " . Validate_Email($sEmail) . "\n";
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;
}
Are there any code examples left?
New code examples in category Perl
-
Perl 2022-01-31 07:16:22 perl format decimal 2 places not rounding
-
Perl 2022-01-30 19:35:07 perl id number validation south africa
-
Perl 2022-01-22 13:46:02 perl add key value pair to hash
-
Perl 2021-11-22 02:55:21 unique in perl
-
Perl 2021-11-13 16:55:08 perl lowercase
-
Perl 2021-11-11 04:30:19 perl write to file
-
Perl 2021-11-06 23:53:11 perl for loop
-
Perl 2021-11-05 18:26:13 perl sprintf YYYYMMDD sample