如何将变量值从Java脚本传递到Perl

2022-04-01 00:00:00 cgi sql perl jquery javascript

我使用了一个JavaScript插件来获取IP地址。如果IP地址以10.15开头,我想给变量赋一个值,如果IP以10.13开头,我想给同一个变量赋一个不同的值。(我不知道变量必须是Perl还是JavaScript)

我正在尝试,但不起作用。

my $propt = "";
    getUserIP(function(ip) { 
        console.log('IP: ' + ip);  
        const ips = ip.split('.');

        var pro = document.getElementById('property');
        console.log(pro);
        if (ips[0] === "10" && ips[1] === "15")  {
          pro.value = "propt1";
    To_Here
      $propt = "SRC";
    print <<"To_Here";      
        }
        else if(ips[0] === "10" && ips[1] === "13") {
            pro.value = "propt2";
    To_Here
      $propt = "ACC";
    print <<"To_Here"; 
        }  
        else {
            pro.value = "propt";
    To_Here
      $propt = "TAP";
    print <<"To_Here"; 
        }  
        console.log(pro);

首先,我尝试将值传递给一个HTML输入并读取该输入的值,但我不知道这在Perl中是否可行

<input id="property" type="hidden" name="property" value=""/>

我尝试执行的最后一步是基于属性运行查询

$ql = "Select from properties where property = '?????' <---- 

perl

在推荐答案端,您需要向perl脚本发送GET请求。我只使用jQuery(参见docs)完成了这项工作,所以如果您想要一个纯Java解决方案,您需要调整它:

function getUserIp(ips) {

    var ipString = ips.join(';');
    $.ajax({
        type: 'GET',
        url: '/path/to/script.pl',
        data: { user_ips : ipString },
        statusCode: {
            200: function(data, textStatus, jqXHR) {
                $('#id').html(jqXHR.responseText);
            }
        }
    });
}
注意,当您将ips变量传递给Perl时,它应该是一个字符串。您可以将参数数组传递给Perl(请参阅CGI docs),但我发现事后拆分字符串是最可靠的。

我将展示如何使用Perl CGI捕获参数,因为它很简单,但如果您计划创建一个完整的网站,那么我强烈建议您使用Web框架。有几个是针对Perl的,比如Catalyst和Mojolicious,它们的学习曲线各不相同。

使用Perl的CGI模块,您可以使用名副其实的param()方法捕获参数:

#! perl

use strict;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser); # just to make it easier to see errors

my $cgi = CGI->new;

my $ip_string = $cgi->param('user_ips');

my @ips = split(';', $ip_string);

my $results;
foreach my $ip (@ips) {
    # do whatever here to populate $results
}

# send results back to jQuery
print $cgi->header( -type => 'text/plain', -status => '200' );
print $results;
print $cgi->end_html;

1;

确保在$.ajax()方法中添加与statusCode相对应的适当标头,并在Perl脚本的末尾调用end_html(),否则jQuery/JavaScript可能无法理解/捕获结果。

相关文章