如何将变量值从Java脚本传递到Perl
我使用了一个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可能无法理解/捕获结果。
相关文章