Форум АНТИЧАТ - Помогите разобаться с Perl

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Помогите разобаться с Perl (https://forum.antichat.xyz/showthread.php?t=15970)

Помогите разобаться с Perl

Вот программа:

Код:

#!usr/bin/perl

while ($login ne "root" and $pass ne "root") {

        print "Login\n";

          $login = <STDIN>;

          chomp $login;

        print "Password\n";

          $pass = <STDIN>;

          chomp $pass;

        print "Access denied\n";

}



if ($login eq "root" and $pass eq "root") {

        print "Welcome, $login\n";

}

Как только $login или $pass принимает значение root, программа завершает работу.
Мне нужно чтобы при правильном вводе и Login и Password выдавалось приветствиею,
а при не правильном вводе одного из полей цикл повторялся.
Как это правильно реализовать?

while ($login ne "root" or $pass ne "root")

PHP код:


		
			
#!usr/bin/perl

$flag = 0;

while (!$flag) {

        print "Login\n";

          $login = <STDIN>;

          chomp $login;

        print "Password\n";

          $pass = <STDIN>;

          chomp $pass;

        if ($login eq "root" and $pass eq "root") {

           $flag = 1;

        } else {print "Access denied\n";}

}

print "Welcome, $login\n";