pattern="^[\d|\+|\(]+[\)|\d|\s|-]*[\d]$" 
    validateat="onsubmit"

必须以数字结尾，可以以(或+或数字开头，并且可以包含+ -(或)

请注意，剥离()字符不适用于常见的英国号码的书写风格:+44(0)1234 567890，这意味着可以拨打国际号码: + 441234567890 或在英国拨打01234567890

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

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

/^(?:(?:\(?(?:00|\+）（[1-4]\d\d|[1-9]\d+）\）？）[\-\.\ \\\/]?)?((?:\（？\d{1，}\）？[\-\.\ \\\/]?)+)(?:[\-\.\ \\\/]?（？：#|ext\.？|扩展|x）[\-\.\ \\\/]？（\d+））？$/i

这比赛:

 - (+351) 282 43 50 50
 - 90191919908
 - 555-8909
 - 001 6867684
 - 001 6867684x1
 - 1 (234) 567-8901
 - 1-234-567-8901 x1234
 - 1-234-567-8901 ext1234
 - 1-234 567.89/01 ext.1234
 - 1(234)5678901x1234
 - (123)8575973
 - (0055)(123)8575973

在$n上，它保存:

国家指标 电话号码 扩展

您可以在https://regex101.com/r/kFzb1s/1上测试它

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

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

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

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

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