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

О проекте

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

MySQL

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

Хостинг

Другое








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

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

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

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

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

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

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

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

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

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

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

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



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





Глава 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