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

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

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

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

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

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

既然写电话号码有很多选择， 我们可以测试其中有足够的数字，不管它们是如何分开的。我发现9到14个数字适合我:

^\D*(\d\D*){9,14}$

正确的:

123456789 1234567890123 +123 (456) 78.90-98.76

错误的:

123 (1234) 1234 9007199254740991 我不会按你说的去做 +123 (456) 78.90-98.76 #543 ext 210>2>5>3 早上打456-7890 18:00后打987 - 54-3210找雪莉

如果你想支持最后两个例子，只需要移除上限:

(\d\D*){9,}

(如果没有上限，则不需要^$)

如果可能的话，我建议有四个单独的字段——区域代码、3位前缀、4位部分、扩展名——这样用户就可以分别输入地址的每个部分，并且您可以分别验证每个部分。这样不仅可以简化验证，还可以将电话号码以更一致的格式存储在数据库中。

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

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

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

01234467分机号123456 01234567 x123456 01234567890

这是我目前为止最好的尝试。它处理上面的格式，但我确信我错过了一些其他可能的格式。

^\d?(?:(?:[\+]?(?:[\d]{1,3}(?:[ ]+|[\-.])))?[(]?(?:[\d]{3})[\-/)]?(?:[ ]+)?)?(?:[a-zA-Z2-9][a-zA-Z0-9 \-.]{6,})(?:(?:[ ]+|[xX]|(i:ext[\.]?)){1,2}(?:[\d]{1,5}))?$