1#!/usr/bin/perl 2 3use lib './lib','../lib'; 4 5use Asterisk::Extension; 6use Data::Dumper; 7 8 9$ext = new Asterisk::Extension; 10 11$ext->readconfig('/etc/asterisk/extensions.conf'); 12 13my @arr= $ext->getextensionarr('demo','1234'); 14for (@arr) { 15 16 $x++; 17# print "$x $_\n" if ($_); 18} 19 20#$ext->getcontextarr(); 21 22print "\n"; 23 24#print Dumper $ext; 25 26print Dumper $ext->matchextension('local', '559'); 27 28$ext->writeconfig('/tmp/test.config'); 29