将数据从 CGI Perl 脚本传递到 html 表单答案

【问题标题】：Pass data from a CGI Perl script to an html form将数据从 CGI Perl 脚本传递到 html 表单
【发布时间】：2015-03-04 13:17:05
【问题描述】：

我使用 CGI 和 Perl 建立了一个网站，其中包含几个页面。我有一个帐户注册页面，将用户信息保存到数据文件中，登录页面可以访问该数据文件以实际登录用户。我遇到的问题是我保存了所有这些帐户信息，但我没有确定如何在 html 页面上显示它。我知道如何在 .cgi 脚本本身中生成一个简单的 html 页面，但这不是我想要做的。我已经设置了一个 .css 文件，它为我完成了整个网站的大部分格式化，我想预先构建一个 html 表单并将保存的数据加载到上面，但我不太确定如何在 CGI Perl 中完成它。

到目前为止，我只是在 .cgi 代码中生成一个基本的 html 页面，就像我之前提到的那样

#Send the info back
print $obj->header( "text/html" ),
$obj->start_html(
    -title    => "Form Data",           
    -topmargin =>"0"
    ),  
$obj->h1("Submitted Form Data Detail"),
$obj->p("Name:  $fname $lname"),
$obj->p("Login name, password, and user name:  $login, $password, $email"),
$obj->p("Gender:  $gender"),
$obj->p("Streaming Services:  $stream_services2"),  
$obj->p("Comments: $comments"),
$obj->end_html;

我在网上阅读的所有地方基本上都尝试使用我不想使用的 javascript 或 php。有什么办法可以在 perl 代码中实现这一点吗？任何建议或参考将不胜感激！

【问题讨论】：

如果我理解您的要求，您想将默认值放入 HTML 表单中吗？比如，如果它是一张信用卡付款表格，并且您已经知道他们的邮政编码，您可以为他们填写吗？

标签： html perl

【解决方案1】：

创建表单时，将信息作为默认值提供-defaults。

print $obj->textfield( -name => 'name', -default => "$fname $lname");

或者，正常编写 HTML 并使用 Javascript 查询以 JSON 形式返回用户信息的 Perl 程序。然后Javascript可以填补空白。这是更好的方法，它允许前端设计人员在不需要了解 Perl 的情况下使用 HTML。

【讨论】：