论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2016-06-17 15:38 |只看该作者 |倒序浏览

我读了w3cschools 的 ajax入门课，下面的html基本上照抄课程的例子:
---------------------------------------------------------------------------
<html>
<head>
<script>
function showHint(str) {
if (str.length == 0) {
      document.getElementById("txtHint").innerHTML= "";
      return;
} else {
      var xmlhttp = new XMLHttpRequest();
      xmlhttp.onreadystatechange= function() {
         if (xmlhttp.readyState == 4 && xmlhttp.status == 200) {
            document.getElementById("txtHint").innerHTML= xmlhttp.responseText;
         }
      };
      xmlhttp.open("GET", "..../cgi-bin/ajax_tst.cgi?str=" + str, true);
      xmlhttp.send();
}
}
</script>
</head>
<body>

<p><b>Start typing a letter in the input field below:</b></p>
<form>
enter a letter: <input type="text" onkeyup="showHint(this.value)">
</form>
<p>Suggestions: <span id="txtHint"></span></p>
</body>
</html>

------------------------------------------------------------
下面是在我服务器上我写的perl cgi 程序 ajax_tst.cgi：
------------------------------------------------------------
#!/usr/bin/perl
use strict;
use CGI;
our $qq= new CGI;
print $qq->header("text/xml");

my $str=$qq->param("str");

#print "<?xml version='1.0'?><response>you entered $str</response>"; # 这句试过但不对
#print "you entered $str";                               # 这句也试过但不对
print "<html><body>you entered $str</body></html>"; # 这句也不对

open(OUT,">/var/www/htm/upload/junk.txt"); # debug用
print OUT "seeing $str\n";             # 我在服务器上看到了这句的结果是对的，证明ajax正确的把输入的str传了进来，
1;
---------------------------------------------------------------

但是这段perl程序没有把答案正确的传回给浏览器。请问我的perl错在哪？如何改正？

谢谢！

文库|博客

gary4096

稍有积蓄

论坛徽章:: 0

2楼 [报告]

发表于 2016-06-17 16:30 |只看该作者

我把下面这句去掉后再试，也是不work:

print $qq->header("text/xml");

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

gary4096

稍有积蓄

论坛徽章:: 0

3楼 [报告]

发表于 2016-06-23 01:34 |只看该作者

求助于一个老美的技术论坛(tek-tips.com),问题终于解决了,一老美大侠说:

It could be CORS ( Cross-Origin Resource Sharing ) issue ? I mean, are the HTML page that performs the AJAX request and that "....cgi-bin/ajax_tst.cgi" on the same protocol + domain + port ?

If that is the problem, in the browser's console should appear a message like this :
Quote (console)
Cross-Origin Request Blocked: The Same Origin Policy disallows reading the remote resource at ..../cgi-bin/ajax_tst.cgi?str=j. (Reason: CORS header 'Access-Control-Allow-Origin' missing).
In such case the CGI script runs without problem, writes to junk.txt, outputs response, but the browser will not allow the JavaScript code to find out anything about it.

老美大侠建议我在服务器的CGI改写下面一句,问题就解决了:

print $qq->header(
-type => 'text/html',
-access_control_allow_origin => '*');

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 入门级ajax求助

入门级ajax求助 [复制链接]

浏览过的版块