URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID3
Нить номер: 65209
[ Назад ]
Исходное сообщение
"Раздел полезных советов: Как на Perl прочитать и преобразова..."
Отправлено auto_tips , 26-Мрт-10 16:15 
$file_mode = (stat( $file_path ))[2];
$stat_mode = sprintf ("%04o", $stat_mode & 07777);
print  "chmod $stat_mode $file_path\n";
chmod ($stat_mode, "файл");  


URL:
Обсуждается: http://www.opennet.me/tips/info/336.shtml

Содержание
Сообщения в этом обсуждении
"Как на Perl прочитать и преобразовать права доступа к файлу в приемлимый для chmod вид."
Отправлено PapaVasi , 26-Мрт-10 16:15 
Думаю, так будет правильнее:

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