Из perl c Asterisk по AMI кто-то реально ковырялся ?
никак не получается поулчить ответ на команду( простейшее действие вродебы), текст скрипта ниже
#!/usr/bin/perl -w
use strict;
use diagnostics;
use Asterisk::AMI;
my $astman = Asterisk::AMI->new(
PeerAddr => 'a.b.c.d',
PeerPort => '5038',
Username => 'testadmin',
Secret => 'qwerty',
Events => 'off'
);
die "Unable to connect to Asterisk" unless ($astman);
my $response = $astman->action({
Action => 'Command',
Command => 'sip show peers'
});
print $response;
на выходе получаю такое :
HASH(0x49b4b0)