Perl正则表达式怎样匹配邮箱

在Perl中，你可以使用=~操作符和正则表达式来匹配电子邮件地址。一个简单的匹配电子邮件的正则表达式如下：

if ($email =~ /^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}$/) {
    print "Valid email address\n";
} else {
    print "Invalid email address\n";
}

这个正则表达式的解释如下：

• ^：表示字符串的开始
• [a-zA-Z0-9._%+-]+：匹配一个或多个字母、数字、点、下划线、百分号、加号或减号
• @：匹配@符号
• [a-zA-Z0-9.-]+：匹配一个或多个字母、数字、点或短横线
• \.：匹配一个点
• [a-zA-Z]{2,}：匹配两个或更多的字母（顶级域名）
• $：表示字符串的结束

请注意，这个正则表达式并不涵盖所有可能的电子邮件地址格式。根据实际需求，你可能需要对其进行调整。