scout escribiste:Gente: necesito hacer un script que deniegue el acceso a un archivo. Me gustaría saber cómo se puede hacer en Perl.
Manualmente, sería así... encontrar el archivo con el botón derecho sobre el, propiedades, seguridad.
Seleccionamos el grupo al que vamos a Denegar el acceso y marcamos el casillero de Denegar.
Puedes usar Win32::FileSecurity. Antes usaba el Win32::Perms de Dave Roth, autor de dos de los mejores libros de Perl para Windows, pero creo que Dave Roth ya no trabaja demasiado con Perl; una pena.
Si usas Perl de ActiveState lo puedes instalar muy fácil. Otra solución es usar setacl.exe (funciona mucho mejor que cacls o que xcacls de Microsoft). La página de setacl: http://setacl.sourceforge.net/
