堆栈内存溢出
  繁体   English   中英

如何使用Perl将客户端从一个CGI页面重定向到另一个CGI页面？

[英]How can I redirect the client from one CGI page to another using Perl?

 原文  2010-09-06 13:09:22  6   5    perl/ cgi

问题描述

我的问题如下。 密码被识别为有效后，我需要重定向到main.cgi但我收到的消息为： 

Status: 302 Found
Location: http://localhost/cgi-bin/Main.cgi

我知道这样做的原因是我在Content-Type之后写这个语句所以它将它作为HTML并在屏幕上打印。 我是Perl的新手。 任何人都可以帮我找到解决方案，让我的代码按照我想要的方式工作吗？ 或者请为我建议一些替代代码，或任何可能帮助我的链接。 

#!C:\perl\bin\perl.exe
use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
my $q = new CGI;

print "Content-Type: text/html\n\n";

if ($q->param("Login")) {
    my $Password = param('Password');
    if (!$Password) {
        print "Please Enter the Password";
    } else {
        my $dbh = DBI->connect(
            "dbi:SQLite:DEVICE.db",
            "", "",
            {
                RaiseError => 1,
                AutoCommit => 1
            }
        );
        my $sth = $dbh->prepare("select * from Settings where Password = ?");
        $sth->execute($Password);
        if (my $pass = $sth->fetchrow_hashref) {
            print redirect(-url => 'http://localhost/cgi-bin/Main.cgi');
        } else {
            print "Invalid Password";
        }
        $dbh->disconnect;
    }
}

print <<END1;
<HTML>
    <HEAD>
        <TITLE> </TITLE>
    </HEAD>
    <body>
        <form NAME="login"  METHOD="POST">
            <input type="hidden" name="submit" value="Submit">
            <TABLE align="center" bgcolor=#B0C4DE>
                <TR>
                    <TD> Enter The Password And Click Login</TD>
                </TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR>
                    <TD><b>PASSWORD</b> :<input type="password" name="Password" size="20" maxlength="15" /></TD>
                </TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR>
                <TR>
                    <TD align="center" colspan="2">
                        <input type="submit" name="Login" value="Login">
                        <input type="reset" name="submit" value="Cancel">
                    </TD>
                </TR>
            </TABLE>
        </FORM>
   </BODY>
</HTML>
END1

5 个解决方案

解决方案1
 21  2010-09-06 07:46:44

重定向： 

print redirect(-url=>'http://localhost/cgi-bin/Main.cgi');

只有在发送回浏览器的第一件事时才有效。 因为你先发送这个： 

print "Content-Type: text/html\n\n";

重定向被视为内容。

（重定向必须是您发送的第一件事，因为它属于响应的HTTP标头。通过打印\\n\\n ，您明确终止这些标头。之后，您发送的任何内容都将显示内容并显示通过浏览器。）

解决方案2
 5  2012-04-20 20:34:18

你可能想试试 

print "<META HTTP-EQUIV=refresh CONTENT=\"1;URL=http://localhost/cgi-bin/Main.cgi\">\n";

技巧是CONTENT=\\"1将延迟页面重定向约一秒钟

我有同样的问题，所以这个技巧对我很有用。 代码不漂亮，但它的工作原理。

解决方案3
 2  2010-09-07 12:56:08

请参阅以下内容，希望它能让您对如何将控制流“保持在正确的位置”提供一个好主意，并帮助您确定哪些部分可以做什么，哪些应该以您的形式执行： 

#!/usr/bin/env perl
# Windows does not use #! to launch stuff!
use strict;
use warnings; # always!
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;

my $q = CGI->new;

my_program:
{
    if ( !$q->param('Login') or !length $q->param('Login') ) {
        print $q->header('text/html'), my_form(); # just display the form
        last my_program;
    }

    my $password = $q->param('Password');
    if ( !$password or !length $password ) {
        print $q->header('text/plain'), "Please enter the Password";
        last my_program;
    }

    my $dbh = DBI->connect(
        "dbi:SQLite:DEVICE.db",
        "", "",
        {
            RaiseError => 1,
            AutoCommit => 1
        }
    );
    my $sth = $dbh->prepare("select * from Settings where Password = ?");
    $sth->execute($password);
    if (my $pass = $sth->fetchrow_hashref) {
        print redirect(-url => 'http://localhost/cgi-bin/Main.cgi');
        last my_program;
    }
    print $q->header('text/plain'), "Invalid Password";
}

sub print_my_form {
return <<END1;
<HTML>
    <HEAD>
        <TITLE> </TITLE>
    </HEAD>
    <body>
        <form NAME="login"  METHOD="POST">
            <input type="hidden" name="submit" value="Submit">
            <TABLE align="center" bgcolor=#B0C4DE>
                <TR>
                    <TD> Enter The Password And Click Login</TD>
                </TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR>
                    <TD><b>PASSWORD</b> :<input type="password" name="Password" size="20" maxlength="15" /></TD>
                </TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR>
                <TR>
                    <TD align="center" colspan="2">
                        <input type="submit" name="Login" value="Login">
                        <input type="reset" name="submit" value="Cancel">
                    </TD>
                </TR>
            </TABLE>
        </FORM>
   </BODY>
</HTML>
END1
}

不要紧，你从不使用“登录”参数...上面按你的意愿执行重定向，显示没有表格的错误（如果需要，在标题行后面使用print my_form() ），并且通常看起来像有点整洁。

解决方案4
 0  2013-08-13 14:17:30

要将页面重定向到另一个页面，请使用以下方法。 

use CGI::Session;
use CGI::Session::Plugin::Redirect;
my $session = new CGI::Session();
print $session->redirect('http://example.com/redirect-path/redirect-file.php');

有关会话模块的更多详细信息，请搜索www.search.cpan.org 。

解决方案5
 -4  2010-09-07 14:30:09

最简单的方法是使用META刷新标记，您也不需要重新标记标题。

使用此代码： 

#!C:\perl\bin\perl.exe
use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
my $q = new CGI;

my $redirect = 0;

print "Content-Type: text/html\n\n";

if ($q->param("Login")) {
    my $Password = param('Password');
    if (!$Password) {
        print "Please Enter the Password";
    } else {
        my $dbh = DBI->connect(
            "dbi:SQLite:DEVICE.db",
            "", "",
            {
                RaiseError => 1,
                AutoCommit => 1
            }
        );
        my $sth = $dbh->prepare("select * from Settings where Password = ?");
        $sth->execute($Password);
        if (my $pass = $sth->fetchrow_hashref) {
            $redirect = 1;
        } else {
            print "Invalid Password";
        }
        $dbh->disconnect;
    }
}

print <<END1;
<HTML>
    <HEAD>
END1

if ($redirect){
    print '<meta http-equiv="refresh" content="1;url=http://localhost/cgi-bin/Main.cgi/">';
}

print <<END2;
        <TITLE> </TITLE>
    </HEAD>
    <body>
        <form NAME="login"  METHOD="POST">
            <input type="hidden" name="submit" value="Submit">
            <TABLE align="center" bgcolor=#B0C4DE>
                <TR>
                    <TD> Enter The Password And Click Login</TD>
                </TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR>
                    <TD><b>PASSWORD</b> :<input type="password" name="Password" size="20" maxlength="15" /></TD>
                </TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR></TR>
                <TR>
                <TR>
                    <TD align="center" colspan="2">
                        <input type="submit" name="Login" value="Login">
                        <input type="reset" name="submit" value="Cancel">
                    </TD>
                </TR>
            </TABLE>
        </FORM>
   </BODY>
</HTML>
END2

暂无
暂无

声明:本站的技术帖子网页，遵循CC BY-SA 4.0协议，如果您需要转载，请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

相关问题 我可以从Perl CGI脚本重定向到PHP页面吗？ 如何从一个CGI重定向到另一个 使用perl将一个html页面重定向到另一个页面 如何将变量从一个CGI脚本传递到另一个？ 如何从另一个Perl CGI脚本调用Perl CGI脚本 如何从另一个Perl CGI脚本调用Perl CGI脚本 如何在Perl CGI程序的每个页面上重复菜单栏？ 如何从Perl CGI程序发送JSON响应？ 如何从Perl CGI脚本发送XML数据？ 如何通过Perl CGI脚本使用数据库服务器？
相关标签
 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM