В предыдущем случае любой пользователь мог угадать одно из трех секретных слов и получить доступ к программе. Если мы хотим, чтобы для каждого пользователя было задано свое секретное слово, нам нужна примерно такая таблица соответствий:

Пользователь	Секретное слово
Fred	camel
Barney	llama
Betty	alpaca
Wilma	alpaca

Самый простой способ сохранить такую таблицу – использовать хэш . В каждом элементе хэша содержится отдельное скалярное значение (как и в массиве любого другого типа), но в соответствие каждому элементу хэша ставится ключ . Ключом может быть любое скалярное значение. Чтобы создать хэш под именем %words (обратите внимание, что используется символ % вместо @ ) с ключами и значениями, приведенными в данной таблице, мы присвоим %words значение:

%words = qw (
   fred camel
   barney llama
   betty alpaca
   wilma alpaca
);

Каждая пара в этом списке представляет в хэше один ключ и соответствующее ему значение. Для наглядности мы разбили этот список на несколько строк. Это возможно, так как в Perl-программах пробельные символы не играют никакой роли.

Секретное слово для Betty мы можем найти с помощью выражения вроде $words("betty") , значением этой ссылки будет alpaca . Ключом может быть любое выражение, поэтому установка $person в значение betty и вычисление $words($person) также дает в результате alpaca .

В итоге получаем:

%words = qw (
   fred camel
   barney llama
   betty alpaca
   wilma alpaca
);
print "Как Вас зовут? ";
$name = <STDIN>;
chomp($name);
if ($name eq "Alex") {
   print "Привет, Alex! Рад тебя видеть!\n";
} else {
   print "Привет, $name!\n";     #обычное приветствие
   $secretword = $words{$name};   #получить секретное слово
   if ($secretword eq "") {    #не найдено
      $secretword = "groucho";    #можно использовать такое
   }
   print "Секретное слово? ";
   $guess = <STDIN>;
   chomp($guess);
   while ($guess ne $secretword) {
      print "Неверно, попробуйте еще раз. Секретное слово?";
      $guess = <STDIN>;
      chomp($guess);
   }
   print "Угадали!\n";
}

Если имя не найдено то значением $words{$name} будет пустая строка, и мы с помощью оператора if задаем значение $secretword для всех остальных пользователей.

<< Предыдущая страница Содержание Наверх Следующая страница >>