我写得最简单(虽然我不需要点)。

^([0-9\(\)\/\+ \-]*)$

正如下面提到的，它只检查字符，而不检查其结构/顺序

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

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

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

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

我倾向于同意去掉非数字，只接受最好的。也许是为了确保至少有几个数字，尽管这确实禁止像字母电话号码“ASK-JAKE”这样的东西。

一些简单的perl表达式可能是:

@f = /(\d+)/g;
tr/0-9//dc;

使用第一个来保持数字组在一起，这可能会提供格式化线索。使用第二个来简单地丢弃所有非数字。

您是否担心可能需要暂停，然后输入更多的键?或者是555-1212(等哔声)123?

对这个话题的大量回复加强了我的直觉——这个问题实际上有无数个解决方案，没有一个是优雅的。

老实说，我建议你不要尝试验证电话号码。即使您可以编写一个允许所有不同合法格式的大型、复杂的验证器，它最终也会允许几乎任何东西，甚至在一开始就允许与电话号码相差甚远的东西。

在我看来，最优雅的解决方案是验证最小长度，仅此而已。

/\b(\d{3}[^\d]{0,2}\d{3}[^\d]{0,2}\d{4})\b/

你会很难用一个简单的正则表达式处理国际号码，看看这篇关于国际(甚至北美)电话号码的困难的文章。

您需要解析前几位数字以确定国家代码，然后根据国家采取不同的操作。

除此之外——你给出的列表不包括另一种常见的美国格式——省略了首字母1。在美国，大多数手机都不需要这种功能，这将开始困扰年轻一代，除非他们拨打国际长途电话。

你已经正确地认识到这是一个棘手的问题。

亚当