Asterisk get_variable, in Perl AGI

Question

我对Asterisk AGI并不陌生。我使用带星号agi的perl。

我需要使用Perl星号agi设计一个IVR解决方案。

我已经写了一些代码，它执行得很好。

Perl代码：-

#!/usr/bin/perl -w
use strict;
use warnings;
  use Asterisk::AGI;
  my $agi = new Asterisk::AGI;
  my $option1 = "";
  my $option2 = "";
$agi->exec("Read","option1,recording-201503252343,1,,,");
$option2 = $agi->get_variable("$option1");
$agi->exec("NoOp","$option1");
if($option2 == 1)
{
  $agi->exec("Playback","hello-world");
  $agi->exec("Goto","English,s,1");
}

---

星号拨号计划：-

exten => 12345,1,Answer()
exten => 12345,2,AGI(agi_new-new.pl)
exten => 12345,n,NoOP(${AGISTATUS})
exten => 12345,n,Hangup()

---

实际上，我在代码中所做的是，我希望用户通过IVR拨打分机，其中会提示2个选项，当他/她输入我想将该数字存储到变量中的选项时，他必须在2个选项之间进行选择，以便我对该变量使用条件。我使用get_variable来获取变量，但当我按下所需选项时，它会获得dtmf输入，但它不会通过命令get_variaable存储在变量中。

求你了，我在这件事上不需要什么帮助。

如果有人能帮忙，我们将不胜感激。

Answer 1

$AGI->get_variable（）获取存储在通道数据中的变量。捕获的DTMF数字没有存储在当前频道的数据中。对于您的案例，您需要使用$AGI->get_data（）。

# Wait 3 seconds for press button
my $option1 = $agi->get_data('recording-201503252343',3000,1);
if ($option1 == 1) {
  # do something
}

在你的例子中，你有错误。定义的$option1为空。您执行命令Read，同时在option1中捕获DTMF，然后您想要获得$option1的值（空）。要么是Read命令中的示例中的拼写错误（option1而不是$option1），要么是错误的代码，可以正常工作。