如何获得用户在Perl AGI脚本中输入的扩展名？

Question

我是Asterisk AGI编程的新手。 我正在尝试使用asterisk-perl创建一个简单的IVR，用户可以在其中输入1到4之间的任何扩展名。这是到目前为止的代码：

use Asterisk::AGI;

$AGI = new Asterisk::AGI;

for($i = 0 ; $i < 2 ; $i++)
{
    $AGI->exec('Playback','welcome');

    $AGI->exec('WaitExten','5|m');


}

现在，我想知道用户输入的扩展名并采取相应的措施。 如何获得用户输入的扩展名？

谢谢。

Answer 1

我相信您想使用get_data，允许您播放文件，然后在给定的时间内等待给定的数字位数，例如：

$ AGI-> get_data（'demo-welcome'，15000，5）;

看这里

Answer 2

好吧，由于WaitExten命令将用户更改为新的扩展名，因此我想您可以在调用WaitExten之后读取特殊变量$ {EXTEN} 。 我不熟悉Asterisk :: Perl，我只使用过Java的FastAGI，所以我不知道确切的命令，但是必须有一些命令来读取变量的值。