如何使用Perl在AGI中转发当前的Asterisk调用？

Question

我有一个基于星号的PBX，并且我能够从PBX的Web控制面板成功运行AGI脚本。

因为我从Perl的（这既不我所知，还没有）调用AGI ...
星号命令是这样的：

print "SET CALLERID $newcid \"\"\n"; 

到目前为止，我不希望需要做的任何数据库查找等。我只是想设置来电显示（我已经可以做到） - 然后将呼叫转移到特定的号码。

任何人都可以告诉我如何使用上面显示的执行星号命令的AGI/perl风格转发当前调用？

FYI：我使用的格式一样已经看到了一些例子：

Exten => blah blah.... 

但是，我不知道如何将其转换成的AGI/perl的格式。

Answer 1

print "EXEC DIAL \"Zap/1/5551234567\"\n"; 

，或者，如果你正在使用Asterisk::AGI，

$AGI->exec("DIAL", "Zap/1/5551234567");