The OpenNET Project / Index page

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

Как на 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:
    Заголовок:
    Текст:




    Спонсоры:
    Слёрм
    Inferno Solutions
    Hosting by Ihor
    Хостинг:

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