Foro - Perl en Español

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.

¿En qué sistema operativo?

Windows XP

Que yo sepa, en Windows XP, el denegar o autorizar el acceso a un fichero es labor del sistema operativo.

Desde Perl, como mucho, se podrán modificar los permisos de acceso, igual que se hace desde las cajas de diálogo de administración de permisos de acceso a los ficheros.

Actualización: perdón, estoy un poco espeso. Lo que te he dicho es justo lo que has preguntado. Lo siento.

¿¿ Hay algún módulo que modifique permisos en SO Microsoft... ??

Win32::Perms.

¿Puede ser que no funcione en v5.10...?

Hummm... seguiré buscando opciones... El repositorio no responde.

En su ppd parece que solo hay soporte hasta el Perl v5.8...

No sé... yo le mandaría un correo al autor.

ok, veo de escribirle; mientras tanto saldré adelante por DOS.

Bueno, paso a contarles: escribí al autor del módulo Win32::Perms para la versión v5.8, pero no tuve novedades. Seguí buscando en Perl y encontré otro módulo: Win32::Security::ACL, con pocos ejemplos, al menos desde mi corta experiencia en Perl, así que opté por la solución (¡grgr!) fuera de Perl, con el comando cacls.

cacls c:\pruebadeseguridad.inf /e /G Todos:F ( ejemplo desde cmd )

http://support.microsoft.com/kb/135268 cacls, comando de Microsoft