Question

我有一个PERL脚本（不确定），该脚本为Asterisk / GoAutodial CRM生成一个随机数（呼叫者ID）。

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

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

$numbers = array (
    '+41240000000',
    '+41240000003',
    '+41240000007'
);

这是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 = (
    '+41240000000',
    '+41240000003',
    '+41240000007'
);
my $number = $predefined[rand(@predefined)];

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

1 个答案: