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

我是星号AGI编程新手。我正在尝试使用创建一个简单的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');


}

使用星号：：AGI；
$AGI=新星号：：AGI；
对于（$i=0；$i<2；$i++）
{
$AGI->exec（'Playback'，'welcome'）；
$AGI->exec（'WaitExten'，'5 | m'）；
}

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

---

谢谢。

由于该命令将用户更改为新的扩展名，我想您可以在调用WaitExten后读取特殊变量。虽然我不熟悉Asterisk:：Perl，但我只使用过Java中的FastAGI，所以我不知道确切的命令，但必须有一些命令来读取变量的值。

我相信您希望使用get_数据，允许您播放文件，然后等待给定的时间以获得给定的位数，例如：

$AGI->get_数据（'demo-welcome'，15000,5）

看