Глава 13: Манипулирование файлами и каталогами
13.5 Изменение прав доступа

Права доступа к файлу или каталогу определяют, кто (в широком смысле слова) и что может делать с этим файлом или каталогом. В UNIX общепринятый метод изменения прав доступа к файлу — применение команды chmod(l). (Если вы не знакомы с этой операцией, обратитесь к ее man-странице.) В Perl права доступа изменяются с помощью функции chmod. Эта функция получает в качестве аргументов заданный восьмеричним числом режим доступа и список имен фаилов и пытается изменить права доступа ко всем этим файлам в соответствии с указанным режимом. Чтобы сделать файлы fred и barnеу доступными в режимах чтения и записи для всех пользователей, нужно вьшолнить такую операцию:

chmod(0666,"fred","barney");

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

Функция chmod возвращает число файлов, для которых были успешно изменены права доступа (даже если в результате фактически ничего не изменилось). Таким образом, в отношении контроля ошибок она работает аналогично функции unlink. Поэтому, чтобы изменить права доступа к файлам fred и barnеу и выполнить контроль ошибок в каждом случае, необходимо использовать следующую конструкцию:

foreach $file ("fred","barney") {
  unless chmod (0666,$file) {
    warn "hmm... couldn't chmod $file.\$!";