Question

你好我是非常新的perl和我有一个问题，我的部分脚本被跳过。

我正在尝试验证用户。如果用户输入admin和admin，则显示欢迎屏幕，否则显示错误。

脚本一直在跳过我的if条件。任何想法？

#!/usr/bin/perl

use CGI;
use strict;
use warnings;

my $object = new CGI;

print "Content-type: text/html\n\n";
if ($object->param("submit")) {
    validate_form ();
} else {
    display_form ();
}

sub validate_form {
    my $user = $object->param("user");
    my $password = $object->param("password");
    my $user2 = "admin";
    my $password2 = "admin";
    my $wrong = "WRONG";
    if (my $user == my $user2 && $password == $password2) {
        print $password;
    } else {
        print $wrong;
    }
}

sub display_form {
    print <<END_HTML;

    <html>
    <head>
    <title>Assignment 1</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    </head>
    <body>
    <form method="post" action="/~int322_132sa13/cgi-bin/assn1/test2.pl" enctype="mu

    User Name: <input type="text" name="user"  />
    Password:<input type="password" name="password"  />
    <input type="submit" name="submit" value="submit" />
    </form>

    </body>
    </html>

    END_HTML
}

Answer 1

我认为您需要在if条件<$ p>中删除$ user之前的“my”

if (my $user == my $user2 && $password == $password2) {

这将创建另一个标量用户。

您还希望使用“eq”运算符来使用字符串相等。

所以改为：

if ($user eq $user2 && $password eq $password2) {

如果条件，Perl脚本跳过

1 个答案: