Как на 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
|
Раздел: Корень / Программисту и web-разработчику / Perl / Работа с файлами |