Perl 正则表达式电子邮件 TLD

Question

我有这个代码：

    if ( $Mail =~ /$Tld{$_}/ ) {
        $TldFound = 1;      
    }

变量 $Mail 具有例如信息“mail@mail.com”。变量 $Tld 具有信息“.com”。我怎样才能削减只有 tld .com 将保留的变量 $Mail？

Answer 1

您应该使用Email::Address 来解析电子邮件地址。

为了能够确定地提取 TLD，需要一份您认为是 TLD 的列表。例如，.co.uk 或 .com.tr 算不算？或者，您只想要最后一串非点字符？

如果您将注意力限制在 2 到 3 个字符的 TLD，例如 .co、.com、.io、.net、.org、.us 等，您可以使用 my ($tld) = ($email =~ /[.] ([a-z]{2,3}) \z/x); 然后检查if ($tld and ($tld eq 'com')) { ... } 等，但您确实想要一份可以作为 TLD 的可接受字符串的良好列表：Net::Domain::TLD、Mozilla::PublicSuffix。

Answer 2

朴素的正则表达式解决方案

以下解决方案将解决您发布的问题，但并非旨在解决所有可能的极端情况。全面解析电子邮件地址并非易事，如果您想处理 RFC 的全部复杂性，则需要一个解析器，例如 Email::Address。

从字符串打印您的 TLD

由于您已经知道要在成功时打印的字符串（例如“.com”），因此您实际上并不需要正则表达式匹配的 result；当匹配为真时，您可以使用语句后条件打印存储在 $Tld 中的字符串。例如：

$Mail = 'mail@mail.com';
$Tld  = '.com';

print "$Tld\n" if $Mail =~ /${Tld}$/;

这将正确打印：

.com

打印比赛

如果您真的想要完整匹配，有很多方法可以做到。一种方法是使用特殊的 $& 变量：

$Mail = 'mail@mail.com';
$Tld  = '.com';

if ($Mail =~ /${Tld}$/) {
    print "$&\n";
}

这也将正确打印：

.com

对字符串进行分区

前面的所有示例都将解决您发布的问题，但没有解析器的最佳通用解决方案实际上是对 TLD 进行分区，并将域的最后一段视为未经验证的 TLD . Ruby 有超级方便的String#rpartition 方法，但我不知道 Perl 中有类似的函数。但是，您可以使用锚定匹配来完成几乎相同的事情。例如：

$Mail = 'mail@mail.com';

$Mail =~ /(\.[[:alpha:]]+)$/;
print "$1\n";

如果您需要根据 .com 等预期值验证 TLD，您可以将其与字符串或变量进行比较。例如：

$Mail = 'mail@mail.com';
$Tld  = '.com';

$Mail =~ /(\.[[:alpha:]]+)$/;
print "$1\n" if $1 eq $Tld