在PERL / AGI中从数组中随机选择

Question

我有一个PERL脚本（不确定）为Asterisk / GoAutodial CRM生成一个随机数（来电显示）。

生成的数字以“+4124 *******”开头，其余数字为随机数。

如何将其更改为预定义的数组，如：

$numbers = array (
    '[phone]',
    '[phone]',
    '[phone]'
);

这是changernum.agi代码：

#!/usr/bin/perl -w
$|=1;

use Net::Ping;
use Asterisk::AGI;


$AGI = new Asterisk::AGI;

my %input = $AGI->ReadParse();

my ($number, $idv) = @ARGV;
$number="+4124".int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10)).int(rand(10));


***I think I need something here***

$AGI->exec("SET numafficher=$number");
$AGI->verbose( "******* / **** / > Numero: $number < ======== ");

Answer 1

rand EXPR在0和EXPR之间生成一个随机数。您可以使用此行为来获取数组的随机元素：

my @predefined = (
    '[phone]',
    '[phone]',
    '[phone]'
);
my $number = $predefined[rand(@predefined)];