我正在使用Asterisk：：FastAGI（推荐用于Perl集成），代码如下所示：

my $dst = $self->param('dst');

对于Asterisk：：AGI，它已经是（我刚刚阅读AGI.pm源代码）：

my $digits=$input{'arg_1'};

我强烈建议你阅读模块的源代码，如果你有任何问题，会快得多。

考虑拨号计划的一部分

exten => _X.,1,NoOp(${PJSIP_HEADER(read,To)})
exten => _X.,n,Set(FirstTo=${CUT(PJSIP_HEADER(read,To),:,2)})
exten => _X.,n,Set(TO_DID=${CUT(FirstTo,@,1)})
exten => _X.,n,Set(client_number=${CALLERID(num)})
exten => _X.,n,AGI(check_nr.agi,,${client_number})
exten => _X.,n,Set(First_check=${first_ani})

请注意agi脚本上的双逗号
将使用client_number值的脚本部分

(my $empty_field,  my $data ) = @ARGV;
   my @data_array = split /--/, $data;                  
   my $callerid   = $data_array[0];

如果您有多个参数（如

AGI(check_nr.agi,,${client_number}--${second}--${third})

在这种情况下

(my $empty_field,  my $data ) = @ARGV;
   my @data_array = split /--/, $data;                  
   my $callerid   = $data_array[0]; 
   my $second     = $data_array[1]; 
   my $third      = $data_array[2];

要将变量传递回星号拨号计划，应用途：

print "SET VARIABLE first_ani $first_ani\n";

完整的Perl脚本

#!/usr/bin/perl

# Modules to use
use strict ;
use warnings;
use Config::IniFiles;
use DBI;
use sigtrap;
use sigtrap qw(handler my_handler normal-signals stack-trace error-signals);

                   my $cfg = Config::IniFiles -> new( -file => '/etc/my_file.ini' );
                   my $dbinst = $cfg -> val('AST', 'DBINST');
                   my $dbhost = $cfg -> val('AST', 'DBHOST');
                   my $dbuser = $cfg -> val('AST', 'DBUSER');
                   my $dbpass = $cfg -> val('AST', 'DBPASS');
                   
                   my $dbhA  = DBI->connect( "dbi:mysql:$dbinst:$dbhost",$dbuser,$dbpass, {RaiseError => 0,PrintError => 1,AutoCommit => 0,}) or die $DBI::errstr;     


########################################### Pass data from asterisk channel to perl script ##########################################
  (my $empty_field,  my $data ) = @ARGV;
   my @data_array = split /--/, $data;                  
   my $callerid   = $data_array[0];

########################################### Pass data from asterisk channel to perl script ##########################################

        my $sthA = $dbhA->prepare( "select  ani,
                                            numero,
                                            data_ultima_modifica
                                    from my_table
                                    where numero = ?
                                    ORDER BY data_ultima_modifica DESC "); 
           $sthA->bind_param( 1, $callerid ); 
           $sthA->execute();
        my $sthArows=$sthA->rows;

            if ($sthArows > 0) 
            {
              my @aryA                  = $sthA->fetchrow_array;
              my $ani                   = $aryA[0];
              my $numero                = $aryA[1];
              my $data_ultima_modifica  = $aryA[2];
            
                   print "SET VARIABLE first_ani  $first_ani \n";
             }
            $sthA->finish();    

 
################## Close DB Connection##################
                warn $DBI::errstr if $DBI::err;
                $dbhA->commit(); 
                $dbhA->disconnect();
################## Close DB Connection##################