我想要一个可以做两件事的cgi脚本。
我还希望在生成/打印结果后，框架只存在 。
以下是我想要做的简化代码。但不知怎的，它不起作用。 什么是正确的方法？
#!/usr/local/bin/perl
use CGI ':standard';
print header;
print start_html('A Simple Example'),
h1('A Simple Example'),
start_form,
"What's your name? ",textfield('name'),
p,
"What's the combination?",
p,
checkbox_group(-name=>'words',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','minie']),
p,
"What's your favorite color? ",
popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),
p,
submit,
end_form,
hr;
if (param()) {
# begin create the frame
print <<EOF;
<html><head><title>$TITLE</title></head>
<frameset rows="10,90">
<frame src="$script_name/query" name="query">
<frame src="$script_name/response" name="response">
</frameset>
EOF
# Finish creating frame
print
"Your name is: ",em(param('name')),
p,
"The keywords are: ",em(join(", ",param('words'))),
p,
"Your favorite color is: ",em(param('color')),
hr;
}
print end_html;
答案 0 :(得分：3)
HTML框架集引用其他文档。您不能一次性创建它们，而是在一个响应中将它们全部发送给用户代理。仅打印框架集和框架参考，浏览器将执行额外的工作以单独获取每个框架。
了解框架集的工作原理：
答案 1 :(得分：2)
Asker说：
我还希望框架仅在生成/打印结果后才存在。
这使得它很棘手，尽管CGI.pm确实支持帧。你没有引用为什么要使用框架集，所以你必须决定使用框架集方法是否真的值得麻烦。
一种选择是使用隐藏框架伪造它。
您可能需要查看：
首先，请参阅此处有关框架的CGI.pm支持
Doc - http://stein.cshl.org/WWW/CGI/#frames
示例 - http://stein.cshl.org/WWW/CGI/examples/frameset.txt
试试 - http://stein.cshl.org/WWW/CGI/examples/frameset.pm
有效地使用框架可能会非常棘手。要创建一个正确的框架集，其中并排显示查询和响应，您需要将脚本分成三个功能部分。第一部分应该创建声明并退出。第二部分负责创建查询表单并将其指向一个框架。第三部分负责创建响应并将其指向不同的框架。
请参阅此参考资料以动态修改框架集：
一个参考 - http://www.codeguru.com/forum/archive/index.php/t-373259.html
其他参考文献 - http://www.google.com/search?q=javascript+dynamically+resize+frameset+cols
一个。首先，您将首先创建框架集，但隐藏响应框架：
<frameset rows="100%,*">`
湾然后使用javascript动态调整帧大小。使用http://stein.cshl.org/WWW/CGI/examples/frameset.txt中的代码作为示例，您必须修改print_response例程以输出javascript以修改框架集以调整框架大小（即公开隐藏的响应框架）：
parent.document.getElementsByTagName("FRAMESET").item(1).cols = '10,90';
答案 2 :(得分：1)
如果要更改用户浏览器中显示的页面结构（即，在提交以前不存在的表单时创建框架），您将不得不使用客户端javascript来做到这一点。这可以简单到框架存在但可见并在提交表单时显示它，或者它可能涉及DOM操作以实际创建它。
根据您的具体要求，您可能最好使用空的＆lt; div＆gt;而不是框架，并通过AJAX填充; CGI::Ajax是最简单的方法。由于您无论如何都需要使用javascript（显示或创建框架），基于AJAX的方法不会为您网站的用户添加任何新要求。
编辑：哇...对于偷渡式投票的任何解释？你认为我没有回答这个问题吗？我错了吗？启发我！
答案 3 :(得分：1)
Asker说：
我还希望框架仅在生成/打印结果后才存在。
这使得它很棘手，尽管CGI.pm确实支持帧。你没有引用为什么要使用框架集，所以你必须决定使用框架集方法是否真的值得麻烦。
您需要使用条件和补充信息来控制输出时的输出：打印查询表单时，打印框架集时以及打印单个框架时。诀窍是在所需的时间输出框架集，并使用pathinfo指向脚本后面的框架，以指示要输出的HTML /框架。
首先，请参阅CGI.pm支持框架：
有效地使用框架可能会非常棘手。要创建一个正确的框架集，其中并排显示查询和响应，您需要将脚本分成三个功能部分。第一部分应该创建声明并退出。第二部分负责创建查询表单并将其指向一个框架。第三部分负责创建响应并将其指向不同的框架。
我尝试修改http://stein.cshl.org/WWW/CGI/examples/frameset.txt以尝试做你想做的事情，但 我没有/无法测试 （没有CGI .pm服务器随时可用）。我严重怀疑它会在没有调试的情况下工作。但希望这能为您提供与它一起运行的基本思路。首先研究http://stein.cshl.org/WWW/CGI/examples/frameset.txt然后看下面的更改：
#!/usr/local/bin/perl
### UNTESTED CODE ###
use CGI;
$query = new CGI;
print $query->header;
$TITLE="Frameset Example";
# We use the path information to distinguish between calls
# to the script to:
# (1) create the frameset
# (2) create the query form
# (3) create the query response
$path_info = $query->path_info;
# If no path information is provided, then we create
# print query form ###new####
# a side-by-side frame set ###old###
if (!$path_info) {
#&print_frameset; ###old###
&print_html_header; ###new###
&print_query ###new###
&print_end; ###new###
exit 0;
}
# If response path ###new###
if ($path_info=~/response/) { ###new###
&print_frameset; ###new###
exit 0; ###new###
} ###new###
# If we get here, then we either create the query form
# or we create the response.
&print_html_header;
#&print_query if $path_info=~/query/; ###old###
#&print_response if $path_info=~/response/; ###old###
&print_query if $path_info=~/frame-query/; ###new###
&print_response if $path_info=~/frame-response/; ###new###
&print_end;
# Create the frameset
sub print_frameset {
$script_name = $query->script_name;
print <<EOF;
<html><head><title>$TITLE</title></head>
<frameset cols="50,50">
<!--frame src="$script_name/query" name="query"--> <!--###old###-->
<!--frame src="$script_name/response" name="response"--> <!--###old###-->
<frame src="$script_name/query" name="frame-query"> <!--###new###-->
<frame src="$script_name/response" name="frame-response"> <!--###new###-->
</frameset>
EOF
;
exit 0;
}
sub print_html_header {
print $query->start_html($TITLE);
}
sub print_end {
print qq{<P><hr><A HREF="../index.html" TARGET="_top">More Examples</A>};
print $query->end_html;
}
sub print_query {
$script_name = $query->script_name;
print "<H1>Frameset Query</H1>\n";
#print $query->startform(-action=>"$script_name/response",-TARGET=>"response"); ###old###
print $query->startform(-action=>"$script_name/response"); ###new###
print "What's your name? ",$query->textfield('name');
print "<P>What's the combination?<P>",
$query->checkbox_group(-name=>'words',
-values=>['eenie','meenie','minie','moe']);
print "<P>What's your favorite color? ",
$query->popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),
"<P>";
print $query->submit;
print $query->endform;
}
sub print_response {
print "<H1>Frameset Result</H1>\n";
unless ($query->param) {
print "<b>No query submitted yet.</b>";
return;
}
print "Your name is <EM>",$query->param(name),"</EM>\n";
print "<P>The keywords are: <EM>",join(", ",$query->param(words)),"</EM>\n";
print "<P>Your favorite color is <EM>",$query->param(color),"</EM>\n";
}