mysql或perl函数匹配星号拨号方案模式

时间:2015-08-06 17:50:25

标签: php mysql perl asterisk

我有一个旧版本的freePBX(超过5000个扩展,数百个IVR),我必须记录这些版本才能迁移到更新版本。我必须映射哪些IVR使用哪个中继线。为此,我必须将拨打的号码与出站路由的拨号模式匹配。

表格的“扩展名”列与我必须匹配的模式类似

19328555
_13XXXX
_1933370[0-2]
_2805XX
_28[3-7]XXX
_331XXX
_848XXX
_85XXXXX
_879XXX

例如,我必须找到哪些“扩展”模式与数字8481234匹配,然后我可以从另一列中获取主干。

我知道Asterisk中必须嵌入一个功能类似于

的功能
$number='8481234';
$pattern='_879XXX';
    if (asterisk_pattern_match($number,$pattern)) {
       #get trunk column from that row
    }

它可以是SQL,也可以是Perl或PHP。我可以写它,但我相信我会重新发明轮子。有没有人知道或知道这样的功能 也许?我用各种方式搜索,但所有结果都是关于在星号拨号计划中使用MySQL,这对我没有任何价值。

谢谢!

2 个答案:

答案 0 :(得分:2)

您可以使用以下脚本查找匹配项,并结合您在Asterisk CLI上运行的dialplan show extension@context的结果,这将显示匹配项的执行顺序。

#!/usr/bin/env perl
use strict;
use warnings;

my $numbers = [
  "8481234", "8581234", "1283123"
];

my $patterns = [
  "19328555" , "_13XXXX"     , "_1933370[0-2]" ,
  "_2805XX"  , "_28[3-7]XXX" , "_331XXX"       ,
  "_848XXX"  , "_85XXXXX"    , "_879XXX"       ,
];

# Lets turn partterns into usable regex, based on the reference:
#   https://wiki.asterisk.org/wiki/display/AST/Pattern+Matching

foreach my $r (@$patterns)
{
  $r =~ s/_/^/;        # Proper regex starts with
  $r =~ s/X|x/\\d/g;     # Replace X with any digit
  $r =~ s/Z|z/[1-9]/g;  # Replace Z with 1-9 as per spec
  $r =~ s/N|m/[2-9]/g;  # Replace N with 2-9 as per spec

  my @matches = grep(/$r/i, @$numbers);

  print "Matching numbers for: ", $r, " are: ", join(', ', @matches), "\n";
}

答案 1 :(得分:2)

谢谢大家。我找到了我正在寻找的确切程序

https://gist.github.com/lgaetz/8695182

它被称为match_pattern.php,由Lorne Gaetz修改并发布在git上。

描述:两个PHP函数,match_pattern和match_pattern_all,用于将数字字符串与Asterisk拨号模式(或模式数组)进行比较,并返回修改后的数字字符串。