- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在使用 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 中。这里可能出现什么问题?
最佳答案
我怀疑您的 Perl 脚本的当前工作目录与 htdocs
不同。您应该使用其路径完全限定文件名。
另外:
您应该始终对每个 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;
关于javascript - 通过AJAX调用Perl脚本打印文本文件的内容,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/16266408/
有没有更好的方法用 PHP 将数据输出到 html 页面? 如果我想在 php 中用一些 var 制作一个 div,我会写类似的东西 print (''.$var.''); 或 echo "''.$v
我可以使用 java awt print 来打印文档/文件而不是使用 javax print 吗?我发现在 java awt print 中有一个选项可以使用 AttributedString 将内容
目前我通过以下方式运行 R 脚本: R --slave argument1 argument2 ... 我想知道 R 中关于如何退出脚本并发出警告的最佳实践,q() 会这样做吗? if(!file.
谁能告诉我如何编写一个程序,用 gcc 编译时打印 c ,用 g++ 编译时打印 c++? 最佳答案 #ifdef __cplusplus printf("c++\n"); #else
我需要支持在 KitKat 设备上打印,但我的目标 SDK 是 13(无法更改)。 特别是我需要打印一个 webview。 这是用于打印 webview 的 API: http://developer
我正在尝试创建一个简单的函数,其中 python 将根据您的年份输入计算年龄。我已经尝试了几种方法,但我没有运气 atm。 附:对不起,我是新手。 ame = input(" Enter your n
JavaFX 2.0 是否支持打印?我有一个文本区域,我从中获取文本然后我想打印它,但似乎没有这个功能。 当然,这里我说的是打印到打印机。 :) 最佳答案 尚不支持。作为一种解决方法,您可以使用 Ja
我试图找出printOn的重点。我查看了一些实现它的类,看起来它只是帮助打印不同数据类型的单位。这是准确的吗? 如果是这样,有人能指出我如何为我自己的类(class)实现这一点的正确方向吗?我将在可能
我无法让 IE 打印我的 Canvas (使用 excanvas 生成)...我使用的是最新版本的 excanvas。 http://dl.dropbox.com/u/997831/canvas.ht
我搜索了很多但没有人回答我的问题,我读到在这样的信号处理程序中使用 cout 是不安全的: void ctrlZHandler(int sig_num) { //SIGTSTP-18
我有兴趣打印一系列查询。我有以下代码。 start = datetime.datetime(2012, 2, 2, 6, 35, 6, 764) end = datetime.datetime(201
public class javaClass { public static void main(String [] arg) { String row1 = "A____A"
我需要写入前一行的命令,例如不带\n 的 print()。 下面是一些示例代码: a=0 print("Random string value") if a==0: print_to_prev
我有一个使用 UIKit 和 Objective C 的旧 iOS 应用程序,我目前正在将其移植到 SwiftUI 和 Swift。一切都很顺利,我喜欢 Swift 和 SwiftUI。该应用程序已经
我创建了一个求和函数,它接受一个开始编号和一个结束编号,并返回这两点之间的总和答案 def print_sum_equations(start_number,end_number):
在 Perl 6 中,print 和有什么区别? , put和 say ? 我怎么看 print 5不同,但 put 5和 say 5看起来一样。 最佳答案 put $a就像 print $a.Str
我正在使用 here 中的 getOrgChart 库,我正在尝试打印整个图表,而不仅仅是可见部分。不幸的是,当使用标准库打印功能时,它只会打印出第一部分,而我不知道如何打印整个图表(该图表相当宽,大
我制作了一个非常适合 A4 页面的 View 。现在我想打印它。请注意,我没有使用drawRect或类似的东西,只是一个带有 subview 和文本标签的普通 View 。我的问题是,我对该 View
由于 Cocoa-Java 已弃用,我正在将 Cocoa-Java 代码迁移到 Cocoa + JNI。该代码打印存储在文件中的图像。新的 Cocoa 代码基本上是: NSImage *image =
这个问题已经有答案了: Printing a TDBGrid (4 个回答) 已关闭 6 年前。 如何在不安装或下载组件的情况下打印 DBGrid? 或者 如何将 DBGrid 的数据放入 RichE
我是一名优秀的程序员,十分优秀!