Perl电话号码正则表达式

除了所有开玩笑和好建议之外,在弄清楚正则表达式时首先要做的是用/ x扩展它.第一步是通过捕获组来解决问题.

/^
 +[[:space:]]*[0-9][0-9.[:space:]-]*
 (([0-9.[:space:]-]*[0-9][0-9.[:space:]-]*))?
 ([0-9.[:space:]-]*[0-9][0-9.[:space:]-]*)?
 ([[:space:]]+ext.[0-9.[:space:]-]*[0-9][0-9.[:space:]-]*)?
$/xi

然后,由于这是由字符集控制,我按字符集空间.

/^
 + [[:space:]]* [0-9] [0-9.[:space:]-]*
 ( ( [0-9.[:space:]-]* [0-9] [0-9.[:space:]-]* ) )?
 ( [0-9.[:space:]-]* [0-9] [0-9.[:space:]-]* )?
 ( [[:space:]]+ ext . [0-9.[:space:]-]* [0-9] [0-9.[:space:]-]* )?
$/xi

现在你可以开始看到一些类似的元素了.尝试将这些内容联系起来以查看相似之处.

/^
 +        [[:space:]]* [0-9] [0-9.[:space:]-]*
 ( ( [0-9.[:space:]-]* [0-9] [0-9.[:space:]-]* ) )?
 (    [0-9.[:space:]-]* [0-9] [0-9.[:space:]-]*    )?
 ( [[:space:]]+ 
   ext . 
      [0-9.[:space:]-]* [0-9] [0-9.[:space:]-]* 
 )?
$/xi

然后归零一个元素并尝试弄清楚.这是重要的一个,[0-9.[：space：] – ] *表示“零个或多个数字,空格,破折号或点”.这对手机解析没有多大意义,也许它会在上下文中更有意义.让我们看看我们可以猜到它正在尝试做什么的一条线.

( ( [0-9.[:space:]-]* [0-9] [0-9.[:space:]-]* ) )?

>打开paren.
>零个或多个数字,短划线或点.
>一个数字
>零个或多个数字,短划线或点.
>关闭paren.

parens建议这是试图解析区号.其余部分将其限制为任意数量的数字,短划线或点,但[0-9]确保至少有一个数字.这可能是作者处理多种电话号码格式的方式.

让我们给它起一个名字,称之为phone_chars,因为这是作者决定的电话号码.还有另一个元素,[0-9.[：space：] – ] * [0-9] [0-9.[：space：] – ] *我将其称为“电话原子”,因为它是什么作者决定一个电话号码的原子可以.如果我们将它放在自己的正则表达式中并使用它构建手机正则表达式,事情会变得更加清晰.

my $phone_chars = qr{[0-9.[:space:]-]};
my $phone_atom  = qr{$phone_chars* [0-9] $phone_chars*}x;

/^
 + [[:space:]]* [0-9] $phone_chars*
 ( ( $phone_atom ) )?
 (    $phone_atom    )?
 ( [[:space:]]+ ext . $phone_atom )?
$/xi;

如果你对电话号码有所了解,就像这样：

>必填国家代码(必须以a和数字开头)
>可选区号
>可选的电话号码
>可选扩展

这个正则表达式不能很好地验证电话号码.根据此正则表达式,“1”是有效的电话号码,但“(555)123-4567”不是因为它没有国家代码.

电话号码验证很难.我提到过Number::Phone吗？

use strict;
use warnings;
use v5.10;

use Number::Phone;

my $number = Number::Phone->new("+1(555)456-2398");
say $number->is_valid;