The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

Как на Perl прочитать и преобразовать права доступа к файлу в приемлимый для chmod вид. 
$file_mode = (stat( $file_path ))[2];
$stat_mode = sprintf ("%04o", $stat_mode & 07777);
print  "chmod $stat_mode $file_path\n";
chmod ($stat_mode, "файл");
 
04.10.2002
Ключи: perl, pri, file, print, path / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Работа с файлами

Обсуждение [ RSS ]
  • 1, PapaVasi (?), 16:15, 26/03/2010 [ответить]      [п©б╘п╠Б∙≤п©Б∙═п▒Б┬≥Б┴╓п©б╘п▒Б┬≥Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б■╢Б∙⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б┬ Б∙░п▒Б┬≥Б▄║п©Б√▓п▒Б√═Б∙╒п▒Б┬≥Б√═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п▒Б■╢Б∙■п©Б√▓п▒Б√═Б∙╒п▒Б√═Б∙⌡ п©б╘п╠Б∙≤п©Б∙═п▒Б┬≥Б┴╓п©б╘п▒Б┬≥Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б■╢Б∙⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б┬ Б∙░п▒Б┬≥Б▄║п©Б√▓п▒Б√═Б∙╒п▒Б┬≥Б√═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п▒Б■╢Б∙■п©Б√▓п▒Б√═Б∙╒п▒Б┬≥Б√═п©б╘п╠Б∙≤п©Б∙═п▒Б┬≥Б┴╓п©б╘п▒Б┬≥Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б■╢Б∙⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б┬ Б∙░п▒Б┬≥Б▄║п©Б√▓п▒Б√═Б∙╒п▒Б┬≥Б√═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п▒Б■╢Б∙■п©Б√▓п▒Б┬ Б■■п▒Б┬≥Б√▓п©б╘п╠Б∙≤п©Б∙═п▒Б┬≥Б┴╓п©б╘п▒Б┬≥Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б■╢Б∙⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б┬ Б∙░п▒Б┬≥Б▄║п©Б√▓п▒Б√═Б∙╒п▒Б┬≥Б√═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п▒Б■╢Б∙■п©Б√▓п▒Б■╛б═п▒Б√└Б∙░п©б╘п╠Б∙≤п©Б∙═п▒Б┬≥Б┴╓п©б╘п▒Б┬≥Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б■╢Б∙⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б┬ Б∙░п▒Б┬≥Б▄║п©Б√▓п▒Б√═Б∙╒п▒Б┬≥Б√═я▐Б√░п▒Б┬ Б√▒п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═я▐Б√░п▒Б┬ Б√▒п©Б√▓п▒Б■╛б═п▒Б┬ Б√▓п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б■╛б═п▒Б┬ Б√⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б┬ Б√▓п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б■╛б═п▒Б┬≥Б√▒п©Б√▓п▒Б┬ Б∙░п▒Б√═Б■─п©б╘п╠Б∙≤п©Б∙═п▒Б┬≥Б┴╓п©б╘п▒Б┬≥Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б■╢Б∙⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б┬ Б∙░п▒Б┬≥Б▄║п©Б√▓п▒Б√═Б∙╒п▒Б┬≥Б√═я▐Б√░п▒Б√═б╟п©Б√▓п▒Б■╛Б┴╔п▒Б┬≥Б√═я▐Б√░п▒Б┬ Б√▒п©Б√▓п▒Б■╛б═п▒Б┬ Б√▓п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б■╛б═п▒Б┬ Б√⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б┬ Б√▓п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б┬ Б∙░п▒Б┬ Б∙░п©б╘п╠Б∙≤п©Б∙═п▒Б┬≥Б┴╓п©б╘п▒Б┬≥Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б■╢Б∙⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б┬ Б∙░п▒Б┬≥Б▄║п©Б√▓п▒Б√═Б∙╒п▒Б┬≥Б√═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п▒Б■╢Б∙■п©Б√▓п▒Б┬ Б■■п▒Б┬≥Б√▓я▐Б√░п▒Б┬ Б√▒п©Б√▓п▒Б■╛б═п▒Б┬ Б√▓п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б■╛б═п▒Б┬ Б√⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б┬ Б√▓п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б■╛б═п▒Б┬≥Б√▒п©Б√▓п▒Б┬ Б∙░п▒Б√═Б■─я▐Б√░п▒Б┬ Б√▒п©Б√▓п▒Б■╛б═п▒Б┬ Б√▓п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б■╛б═п▒Б┬ Б√⌠п©б╘п╠Б∙≤п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б■╛Б┴╔п▒Б┬ Б√▓п©б╘п▒Б┬ Б√⌠п©Б√▓п▒Б√═Б∙⌡п╠Б∙░п©Б√▓п▒Б■╛б═п▒Б┬ Б▄═]
    		• +/–
    Думаю, так будет правильнее:

    $stat_mode = sprintf ("%04o", $file_mode & 07777);
                                   ^^^^

     

     Добавить комментарий
    Имя:
    E-Mail:
    Заголовок:
    Текст:

    Партнёры:
    PostgresPro
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей     		Created 1996-2025 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру