П О Р Т А Л                            
С Е Т Е В Ы Х                          
П Р О Е К Т О В                        
  
Поиск по сайту:
                                                 
Главная

О проекте

Web-мастеру
     HTML & JavaScript
     SSI
     Perl
     PHP
     XML & XSLT
     Unix Shell

MySQL

Безопасность

Хостинг

Другое








Самое читаемое:

Учебник PHP - "Для Чайника".
Просмотров 180560 раз(а).

Иллюстрированный самоучитель по созданию сайтов.
Просмотров 78999 раз(а).

Учебник HTML.
Просмотров 75792 раз(а).

Руководство по PHP5.
Просмотров 46794 раз(а).

Хостинг через призму DNS.
Просмотров 54289 раз(а).

Подборка текстов стандартных документов.
Просмотров 46671 раз(а).

Учебник PHP - Самоучитель
Просмотров 52872 раз(а).

Документация на MySQL (учебник & справочное руководство)
Просмотров 53484 раз(а).

Внешние атаки...
Просмотров 43241 раз(а).

Учебник PHP.
Просмотров 38768 раз(а).

SSI в примерах.
Просмотров 28683 раз(а).



 
 
| Добавить в избранное | Сделать стартовой | Помощь





Глава 1: Введение.
1.5. Прогулка по стране Perl
1.5.10. Как обеспечить скромный уровень безопасности

"Этот список секретных слов должен меняться минимум раз в неделю!", — требует Главный Директор Списков Секретных Слов. Мы не можем, конечно, заставить пользователей еженедельно менять пароли, но должны хотя бы предупреждать их о том, что список секретных слов не изменялся в течение семи дней и более.

лучше всего делать это в подпрограмме init_words(); мы уже работаем в ней с файлом wordlist. Perl-операциям возвращает значение, равное количеству дней, прошедшему с момента изменения файла или дескриптора файла, поэтому нам нужно просто посмотреть, превышает ли это значение число семь для дескриптора файла wordslist:

sub init_words {

  open (WORDSLIST, "wordslist") || die "can't open wordlist: $!";

  if (- М WORDSLIST >= 7.0) { # в соответствии с бюрократическими правилами

die "Sorry, the wordslist is older than seven days. "; } while ($name = <WORDSLIST) { chomp ($name); $word = <WORDSLIST>; chomp ($word); $words($name} = $word; } close (WORDSLIST) || die "couldn't close wordlist: $!";

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

Остальная часть программы изменений не претерпевает, поэтому в целях экономии бумаги мы ее повторять не будем.

Помимо определения "возраста" файла мы можем узнать имя его владельца, размер, время последнего доступа к нему и все остальные сведения, хранимые системой о каждом файле. Более подробно об этом написано в главе 10.

* Если точнее, то в дескриптор файла stderr, но обычно это и означает терминал.

Назад | Вперед
Содержание (общее) | Содержание раздела | Содержание подраздела



Если Вы не нашли что искали, то рекомендую воспользоваться поиском по сайту:
 





Copyright © 2005-2016 Project.Net.Ru