perl - 问题根据平面文件检查用户名输入以创建用户

Question

我正在处理用户登录，但在用户创建部分遇到问题。我的问题是我正在尝试根据文本文件检查输入用户名，以查看该用户名是否已存在。我似乎无法将输入的用户名与我带来的数组进行比较。我尝试了两种不同的方法来实现这一点。一个使用数组，另一个使用我在网上读到的我不太明白的东西。任何帮助或解释将不胜感激。

这是我尝试使用数组来比较
http://codepad.org/G7xmsf3z

这是我的第二次尝试
http://codepad.org/SbeqmdbG

Answer 1

在您的第一次尝试中，尝试将 if 放在循环中:

foreach my $pair(@incomingarray) {
    (my $name,my $value) = split (/:/, $pair);

    if ($name eq $username) {
      print p("Username is already taken, try again");
      close(YYY);
      print end_html();
    }
    else {
      open(YYY, ">>password.txt");
      print YYY $username.":".$hashpass."\n";
      print p("Your account has been created sucessfully");
     close(YYY);
     print end_html();
   }
}

在您第二次尝试中，我认为您应该尝试更改该行:

if (%users eq $username) {

有了这个:

if (defined $users{$username}) {