我相信Number::Phone::US和Regexp::Common(尤其是Regexp::Common::URI::RFC2806的源代码)Perl模块会有所帮助。

应该更详细地说明这个问题，以解释验证这些数字的目的。例如，911在美国是一个有效的号码，但911x不是x的任何值，这样电话公司就可以计算出你什么时候拨号。关于这个问题有几种不同的说法。但是您的正则表达式不检查区域代码部分，因此这似乎不是一个问题。

就像验证电子邮件地址一样，即使你有一个有效的结果，你也无法知道它是否分配给了某人，直到你尝试它。

如果您正在尝试验证用户输入，为什么不规范化结果并处理它呢?如果用户输入的数字您不能识别为有效数字，则将其保存为输入值或删除不可用字符。Number::Phone::Normalize Perl模块可能是灵感的来源。

我在一家市场研究公司工作，我们必须一直过滤这些类型的输入。你把事情复杂化了。去掉非字母数字字符，看看是否有扩展。

为了进一步分析，你可以订阅众多提供商中的一家，这些提供商会让你访问有效号码数据库，并告诉你他们是座机还是移动电话，断开连接等等。这需要花钱。

更好的选择……只要去掉输入中的所有非数字字符(除了“x”和前导的“+”符号)，注意，因为英国人倾向于用非标准形式的+44(0)写数字……当要求使用国际前缀时(在这种特定情况下，应该完全丢弃(0))。

然后，你会得到这样的值:

 12345678901
 12345678901x1234
 345678901x1234
 12344678901
 12345678901
 12345678901
 12345678901
 +4112345678
 +441234567890

然后，当你显示，重新格式化为您的心脏内容。如。

  1 (234) 567-8901
  1 (234) 567-8901 x1234

我也在为同样的问题而挣扎，试图让我的应用程序经得起未来的考验，但这些人让我走上了正确的方向。我实际上并不是在检查数字本身，看它是否有效，我只是试图确保输入的一系列数字可能有或没有扩展名。

最坏的情况是，如果用户必须从XML文件中提取一个未格式化的数字，他们仍然只是将数字输入到手机的数字pad 012345678x5中，没有真正的理由保持它的美观。这种RegEx对我来说是这样的:

\d+ ?\w{0,9} ?\d+

01234467分机号123456 01234567 x123456 01234567890

如果你只是想验证你在字段中没有随机垃圾(即来自表单垃圾邮件者)，这个正则表达式应该做得很好:

^[0-9+\(\)#\.\s\/ext-]+$

请注意，它没有任何特殊的规则来说明有多少位数字，或者这些数字中哪些数字是有效的，它只是验证只有数字、括号、破折号、加号、空格、磅、星号、句号、逗号或字母e、x、t存在。

它应该与国际数字和本地化格式兼容。你认为某些区域需要使用方括号、花括号或尖括号吗?(目前他们不包括在内)。

如果你想保持每个数字的规则(比如美国区域代码和前缀(交换码)必须在200-999之间)，那么祝你好运。维护一个复杂的规则集，在未来任何时候世界上任何国家都可能过时，这听起来并不有趣。

虽然剥离所有/大多数非数字字符在服务器端可能工作得很好(特别是如果您计划将这些值传递给拨号器)，但您可能不希望在验证期间打乱用户的输入，特别是如果您希望他们在另一个字段中进行更正。

这是一个简单的菲律宾手机号码的正则表达式模式:

((\+[0-9]{2})|0)[.\- ]?9[0-9]{2}[.\- ]?[0-9]{3}[.\- ]?[0-9]{4}

or

((\+63)|0)[.\- ]?9[0-9]{2}[.\- ]?[0-9]{3}[.\- ]?[0-9]{4}

将匹配这些:

+63.917.123.4567  
+63-917-123-4567  
+63 917 123 4567  
+639171234567  
09171234567  

第一个将匹配任何两位数的国家代码，而第二个将匹配菲律宾国家代码。

在这里测试:http://refiddle.com/1ox