Question

我正在使用AJAX和基于Web的服务器[APACHE]来调用perl脚本。

我的文件在htdocs中，我的服务器访问这些文件。当我点击test.html时，它会弹出一个“test”按钮并成功调用perl脚本来打印出一条消息。即，perl脚本简单地打印“helloworld”并且html文件“警告”用户，即当按下按钮时打印出“hello world”。这很好用。

问题是，我想做的是调用perl脚本“check.pl”，其中check.pl打开一个文本文件“simple.txt”，将该文本文件的内容存储在一个字符串中然后打印结果。因此，通过按下test.html生成的按钮，它应该打印出文本文件的内容。现在simple.txt只是一个句子。

这是我的HTML，它成功执行了一个perl文件[check.pl]：

<!DOCTYPE html>
<html>
<head>
<script>
function loadXMLDoc() {

//create a variable that will reference the XMLHttpRequest we will create
var xmlhttp;


//****Want it compatible with all browsers*****
//try to create the object in microsoft and non-microsoft browsers
if (window.XMLHttpRequest) {
    // code for IE7+, Firefox, Chrome, Opera, Safari
    xmlhttp=new XMLHttpRequest();
} else {
    // code for IE6, IE5
    xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}

//set the event to be a function that executes
xmlhttp.onreadystatechange=function() {
    var a;
    //when server is ready, go ahead
    if (xmlhttp.readyState==4 && xmlhttp.status==200) {
    //get number from text file, add one to it and output 
    //the original number and the resulting number.
    a = xmlhttp.responseText;
    alert(a);
    }
}
//execute perl script
xmlhttp.open("GET","check.pl",false);
xmlhttp.send();
}
</script>
</head>
<body>
<div id="myDiv"><h2>Let AJAX change this text</h2></div>
<Apache2.2>/<check.pl>?fileName=<simple.txt>
<button type="button" onclick="loadXMLDoc()">Change Content</button>

</body>

这是它调用的perl脚本：

#test to see if we can open file and print its contents

#The following two lines are necessary!
#!C:\indigoampp\perl-5.12.1\bin\perl.exe
print "Content-type: text/html\n\n";

#This line allows the entire file to be read not just the first paragraph.
local $/;

#Open file that contains the source text to work with
open(FILESOURCE, "simple.txt") or die("Unable to open requested file: simple.txt :$!");

#Store the whole text from the file into a string
my $document = <FILESOURCE>;
print $document;
close (FILESOURCE);

我是perl，AJAX，HTML和javascript的新手。问题是，当我按下按钮时，什么都没有出现。实际上，应该向用户警告“simple.txt”的内容。我查看了错误日志文件，它说“无法打开simple.txt，文件或目录不存在”。虽然，正如我之前所说，我的所有三个文件都在htdocs中。这可能是什么问题？

Answer 1

我怀疑Perl脚本的当前工作目录与htdocs不同。您应该使用其路径完全限定文件名。

此外：

use strict和use warnings 每个 Perl程序
如评论所述，#!行必须是文件中的第一行
当告诉客户是简单文本时，以下数据是HTML。
您应该使用带有词法文件句柄的open的三参数。

此程序更新会考虑这些要点

#!C:\indigoampp\perl-5.12.1\bin\perl.exe

use strict;
use warnings;

my $filename = 'simple.txt';

open my $source, '<', 'C:\path\to\htdocs\\'.$filename
        or die qq{Unable to open requested file "$filename": $!};

my @document = <$source>;
print "Content-type: text/plain\n\n";
print @document;

通过AJAX调用Perl脚本来打印文本文件的内容

1 个答案: