在跨站点Perl CGI函数的ajax调用中获取状态代码0

Question

Perl CGI脚本被调用； 我可以看到调试日志正在获取参数并正在执行。

问题是返回结果，状态码始终为0，responseText为空。

尝试了各种标头选项等，但没有运气，任何帮助将不胜感激。

Perl CGI处理程序

#!/usr/bin/perl
use strict;
use warnings;

use CGI;
use JSON;
use Data::Dumper qw( Dumper );

my $q = new CGI;
my %data;

open my $FH, '>', 'outfile';

if ( my $number = $q->param('number') ){
    if ( $number =~ /^\d+$/ ) {
            $data{result} = $number % 2 ? 'odd' : 'even';
    } else {
            $data{result} = 'Not a number';
    }

    my $jret = to_json(\%data);
    print $FH Dumper($jret);
    close $FH;

    print $q->header('application/json');
    print to_json(\%data);
}

HTML代码

<!DOCTYPE html>
<html>
<head>
<title>[% title %]</title>
<meta charset='utf-8'>
    <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.1.0/jquery.min.js">      </script>
    </script>
</head>

<body>
    <div id='result'></div>Enter number:
    <form>
    <input type='text' id='number'> 
    <button onclick='test_number();'>Test</button>

    <script>
        function test_number()
        {
            $.ajax({
                    type: 'POST',
                    dataType: 'json',
                    url: '/cgi-bin/simple.cgi',
                    data: {
                            'number': $('#number').val()
                    },
                    success: function(data, textStatus ){
                       alert('request successful');
                    },
                    error: function(jqXHR, exception) {
                        msg =  'Request Status: ' + jqXHR.status + ' Status Text: ' + jqXHR.statusText + ' ' + jqXHR.responseText;
                        alert(msg);
                    }
            });
            return false;
        }
    </script>
    </form>
</body>
</html>

Answer 1

单击表单中的提交按钮时，将运行JavaScript函数。

这个：

发送Ajax请求
卸载当前页面
提交表格
载入新页面

快速破解

为您的按钮元素使用type="button" ，因此它不是提交按钮

正确的解决方案

设置<form action="/cgi-bin/simple.cgi"以便表单提交正确的位置
将name="number"添加到输入中，以便将其包含在常规表单数据中
添加一种手段来区分表单提交和Ajax请求（例如隐藏输入）
更新脚本，以便如果它获得表单提交，它将呈现适当的HTML文档而不是JSON
删除onclick属性，并使用JavaScript绑定适当的事件处理程序（如果JS成功运行，这将阻止表单提交的默认行为）

这样：

function test_number(event) {
    event.preventDefault();
    $.ajax({
        type: 'POST',
        dataType: 'json',
        url: '/cgi-bin/simple.cgi',
        data: {
            'number': $('#number').val()
        },
        success: function(data, textStatus) {
            alert('request successful');
        },
        error: function(jqXHR, exception) {
            msg = 'Request Status: ' + jqXHR.status + ' Status Text: ' + jqXHR.statusText + ' ' + jqXHR.responseText;
            alert(msg);
        }
    });
}

document.querySelector("form").addEventListener("submit", test_number);

在跨站点Perl CGI函数的ajax调用中获取状态代码0

问题描述

1 个解决方案

解决方案1
0 已采纳 2017-01-05 16:43:54

快速破解

正确的解决方案

在跨站点Perl CGI函数的ajax调用中获取状态代码0

问题描述

1 个解决方案

解决方案1 0 已采纳 2017-01-05 16:43:54

快速破解

正确的解决方案

解决方案1
0 已采纳 2017-01-05 16:43:54