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