我怎么可以比较国际电话号码在Perl?

Question

是否有任何模块，该模块可以帮我比较的电话号码的平等？

例如，以下三个数字是相当的(当拨号从英国)

+44 (0)181 1234123
00441811234123
0181 1234123

是否有一个perl模块，该模块可以告诉我这个？

Answer 1

最近我可以看到 支持 是 编号：：电话 这是一个活跃项目，并支持英国电话号码。它应工作的具体例子。少数几个国家的支持。

如果你已经得到了电话号码，为其他国家的事情可以得到更多的困难，由于当地的格式化特性。

Answer 2

假设所需的代码不存在，并且需要编写它自己，有两种基本的操作，你需要做的：

1. 适用的上下文。这是你的位置，拨号电话以考虑。如果电话是不是国际的，你源的国家代码；如果电话是不是长距离，则提供一个区域代码等。这需要一些规则，每个区域设置的，当然。

2. 正常化。删除毫无意义的场所和标点符号转换的国际拨号前缀("011"在NANPA,"00"在大多数的其余部分的世界，但偶尔许多怪异的事情)的标准"+".

在完成这两个步骤不当，所有投入，实际上是相当的数字应得到相同的输出串。