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

sub init_word {
   open (WORDLIST, "wordslist") || die "Не могу открыть wordlist: $!";
   if (-M WORDLIST >= 7.0) {
      die "Извините, возраст wordlist больше 7 дней"
   }
   while ( defined ($name = <WORDLIST>)) {
      chomp($name);
      $word = <WORDLIST>;
      chomp($word);
      $words{$name} = $word;
   }
   close (WORDLIST) || die "Не могу закрыть wordlist: $!";
}

Значение -М WORDLIST сравнивается со значением 7 . Если оно больше, то, выходит, мы нарушили парвила, и функция die прерывает работу программы.

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