Life Hacks


      

Regular Expression for email id in perl



print”enter value”;
chomp($a=<>);
print “$a \n”;
if($a=~/((\w*)[@](\w*)[.](\W*))/)
{
print”equal”;
}
else
{
print”not equal”;
}

Comments are currently closed.