Question

我正在尝试从php扩展。这是我遇到的一个基本问题，无法弄明白......

password.pl

#!/usr/bin/perl

use CGI;
$q = new CGI;

print "Content-type:text/html\r\n\r\n";
print '<html>';
print '<head>';
print '<title>Card</title>';
print '</head>';
print '<body>';
print '<FORM METHOD=POST ACTION=/card.pl>';
print '<INPUT TYPE=password NAME=password SIZE=25>';
print '<input type=submit value=Submit>';
print '</FORM>';
print '</body>';
print '</html>';

1;

card.pl

#!/usr/bin/perl

use CGI;
$q = new CGI;

$password = $q->param("password");
print $password;
if ($password == pass)
{
  print 'Yup';
}
else
{
  print 'Wrong Password';
}


1;

没有什么东西从password.pl表单传递给card.pl？我以前用过一个类似的例子没有问题吗？

更多咖啡......

Answer 1

use strict;，use warnings;并查看错误日志。另外validate您的HTML。

然后你会收到类似以下问题的警告：

在card.pl第7行使用“strict subs”时，不允许使用Bareword“pass”。

你可能想要：

($password eq 'pass')

Answer 2

在我继续寻求废除CGI.pm的滥用时，你的第一个脚本会好得多 -

use strict;
use warnings;
use CGI qw( :standard );

print
    header(),
    start_html("O HAI CARD"),
    start_form(-action => "card.pl"),
    fieldset(
             legend("None Shall Pass!"),
             password_field(-name => "password",
                            -size => 25),
             submit(-value => "Submit"),
             ),
    end_form(),
    end_html();

你的第二个，或许，仅举例来说，等等 -

use strict;
use warnings;
use CGI;
my $q = CGI->new;

print
    $q->header,
    $q->start_html("O HAI CARD");

my $password = $q->param("password");

if ( $password eq "pass" )
{
  print $q->h2("You're all good");
}
else
{
  print $q->h2({-style => "color:#a00"},
           "You're all good");
}

print $q->end_html();

或者，或许更好，一起 -

use strict;
use warnings;
no warnings "uninitialized";
use CGI qw( :standard );

print
    header(),
    start_html("O HAI CARD");

print param("password") eq "pass" ?
    h2("Yes!") : h2({-style => "color:#a00"}, ":(");

print 
    start_form(),
    fieldset(
             legend("None Shall Pass!"),
             password_field(-name => "password",
                            -size => 25),
             submit(-value => "Submit"),
             ),
    end_form(),
    end_html();

RIF，请阅读文档：CGI。

为什么此密码检查无法按预期工作？

2 个答案: