Question

截至目前，我有两个单独的脚本：一个只打印html以生成文本框，并提交按钮，打开指向/~gen13/wordrate.cgi的链接。该目录（在我们的类服务器上）包含第二个脚本，理论上应该采用用户输入的文本并返回一些值。

我的问题是我无法弄清楚如何使用第二个文件访问第一个文件的文本框的输入。我已经阅读了open和use命令，但我不知道如何引用输入或者是否正在创建一个可访问的输入（我担心我只有一个不会引导任何地方的文本框.. ）。

HTML脚本在这里，它当前创建了一个带有功能提交按钮的框，可正确调用第二个脚本，但第二个脚本缺少实际调用输入：

#!/usr/local/bin/perl

use CGI qw(:standard);
use strict;
use vars qw($
print header;

###Form Create###
        &create_form;

sub create_form {
print ("<html><head><title>Wordy: Your One
Stop Verbosity Shop</title></head>\n<body>\n");
print ("WELCOME TO WORDY: YOUR ONE STOP VERBOSITY SHOP $vote<p>\n");

print <<endHTML;
<form action="/~gen13/wordrate.cgi" method="POST" target="_blank">
<textarea name="text" cols=120 rows=12>
Please enter your text...
</textarea>
<input type="submit" value="WORDIFY">
</form>
</body>
        </html>
endHTML
}

exit;

Answer 1

隐藏字段可用于提取信息。这会将第一个脚本的foo参数作为其bar参数传递给第二个脚本。

print '<input type="hidden" name="bar" value="'.escapeHTML(param('foo')).'">';

如果它们位于同一个域中，则还可以使用cookie来共享值本身，或者使用会话ID来帮助找到第一个脚本存储在服务器上的数据。

如何将HTML文本区域输入用作perl脚本的字符串？

1 个答案: