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

【问题标题】：How can I get the extension entered by user in a Perl AGI script?如何获取用户在 Perl AGI 脚本中输入的扩展名？
【发布时间】：2011-10-10 01:33:26
【问题描述】：

我是 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');


}

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

谢谢。

【问题讨论】：

标签： perl asterisk telephony agi

【解决方案1】：

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

$AGI->get_data('demo-welcome', 15000, 5);

见here

【讨论】：

【解决方案2】：

既然WaitExten 命令将用户更改为一个新的扩展，我想你可以在调用WaitExten 之后读取特殊变量${EXTEN}。虽然我对 Asterisk::Perl 不熟悉，我只使用 Java 的 FastAGI，所以我不知道确切的命令，但必须有一些命令来读取变量的值。

【讨论】：