如何使用perl "require"函数调用具有表单并在检查凭据时返回到原始脚本的perl脚本

Question

我正在编写一个perl程序，其中有一个显示一些信息的脚本。在显示该页面之前，我需要登录该页面。我尝试在主脚本中使用"require"函数，该函数调用另一个要求输入用户名和密码的脚本。当登录条件满足时，我需要自动返回到我的原始程序。请帮我。

文件1:

require 'index.pl'; 

文件2:

sub print_form { 
    my $query = new CGI; use vars qw($userid $pword);
    my $password_dir = '/opt/app/d1pre2w1/sites/apache/cgi-bin-new/';
    my $pword_file = "commit_access_control.cfg";
    my $passwrd_location = $pword_file; 
    print("<td><form> n", "USERNAME :", "<input type=text name=USERNAME >", "<br>", "PASSWORD :", "<input type=password name=PASSWORD>", "<br>", "<input type=submit name=login value=Login>", "</form>");

Answer 1

从你的问题来看，你有两个问题：

1. 您正在使用一个古老而不明智的Perl教程。2015年（更不用说2001年）没有人会建议使用require进行代码重用。

2. 您不了解web应用程序是如何工作的。您不可能编写一个单一的应用程序脚本来平滑地从一个状态流到另一个状态。相反，您必须创建一个与客户端进行对话的系统。虽然基于CGI的技术很难成为现代技术，但它们确实有效，并构成了许多当前技术的基础。查看Ovid的CGI课程。一旦您对此感到满意，请查看Mojolicus、Catalyst或Dancer，了解更现代的Perl web开发方法。