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

О проекте

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

MySQL

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

Хостинг

Другое








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

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

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

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

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

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

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

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

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

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

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

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



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





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

Просматривая файлы *.secret в текущем каталоге, мы, возможно, обнаружим слишком старые файлы. До сих пор мы просто пропускали их. Давайте сделаем очередной шаг и переименуем эти файлы в *.secret.old, чтобы в перечне содержимого сразу было видно - по имени - какие файлы необходимо обновить.

Вот как выглядит подпрограмма init_words(), модифицированная для выполнения такой операции:

sub init_words {
  while ($filename = <*.secret>) { 

open (WORDSLIST, $filename) || die "can't open $filename: $!"; if (-M WORDSLIST < 7) { while ($name = <WORDSLIST>) { chomp ($name) ; $word = <WORDSLIST> ; chomp ($word); $words {$name} = $word ; } } else { # rename the file so it gets noticed rename ($filename, "$filename.old") || die "can't rename $filename.old: $!"; } }

Обратите внимание на новую часть оператора else в блоке проверки "возраста" файлов. Если файл не обновлять семь дней и более, функция rename переименовывает его. Эта функция принимает два параметра и переименовывает файл заданный первым параметром, присваивая ему имя, указанное во втором параметре.

В Perl имеет полный набор операций, необходимый для манипулирования файлами; все, что можно сделать с файлом в С-программе, можно сделать с ним в Perl.

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



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





Copyright © 2005-2016 Project.Net.Ru