Форум АНТИЧАТ - Показать сообщение отдельно

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

Показать сообщение отдельно

16.03.2006, 13:47

DetMyl

Участник форума

Регистрация: 17.12.2005

Сообщений: 121

Провел на форуме:
551495

Репутация: 227

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";