如何将变量值从javascript传递到perl答案

【问题标题】：How to pass a variable value from javascript to perl如何将变量值从javascript传递到perl
【发布时间】：2019-01-23 23:05:01
【问题描述】：

我正在使用 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 无法“看到”来自 JavaScript 的任何内容，除非您对它进行 XMLHttpRequest / XHR / Ajax 回调。为什么不直接在 Perl 中完成这一切呢？每个 Web 服务器都可以从请求中检索远程地址。
这应该是 Perl 代码，其中嵌入了包含 JavaScript 的文档吗？是否缺少初始 print <<"To_Here" 和结尾 print <<"To_Here 语句？ To_Here 不应该与左边距齐平吗？还是我完全误解了你？
传统上，Perl 在服务器系统上运行，而 JavaScript 在客户端浏览器中运行。要将隐藏输入字段中的信息传回服务器，您需要提交表单。
请识别此“JavaScript 插件”，以便我们更好地猜测您要做什么。

标签： javascript jquery sql perl cgi

【解决方案1】：

在 JavaScript 端，您需要向 Perl 脚本发送 GET 请求。我只使用 jQuery 完成了此操作（请参阅 docs），因此如果您想要纯 JavaScript 解决方案，则需要对其进行调整：

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 可能无法理解/捕获结果。

【讨论】：