如何使用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");