Foro - Perl en Español

Buenas :
Mi pregunta es la siguiente. En un fichero txt tengo guardado cuentas y logins de diferentes usuarios. Lo que tengo que hacer es conectarme al servidor a través de una cuenta y de un login pero solo si el fichero tiene los permiso -r--------, es decir, solo puede leerlo el dueño del fichero. ¿Cómo puedo saber esto a través de Perl?
Gracias
Saludo

Con la función stat() se puede obtener quién es el dueño de un determinado fichero. Pero con los test -X se puede saber los permisos del fichero en relación al usuario que ejecuta el programa.

¿Qué pasa si quiero saber si el archivo tiene permisos 777(-rwxrwxrwx), 766 (-rwxrw-rw-), 666(-rw-rw-rw-)?
¿Puedo usar, por ejemplo para los permisos 777, algo como "if -rwxrwxrwx"?
¿Y para guardar el dueño del archivo, me sirve la forma: $dueñoArchivo = stat($filename)?

Muchas Gracias...

Bienvenido a los foros de Perl en Español, noitora-5.

noitora-5 escribiste:¿Qué pasa si quiero saber si el archivo tiene permisos 777(-rwxrwxrwx), 766 (-rwxrw-rw-), 666(-rw-rw-rw-)?

La función stat() devuelve una lista de 13 valores, de los cuales el que te interesa es el tercero, que guarda el valor -en decimal- de los permisos del archivo indicado. A ese valor le debes aplicar una máscara para quedarte con el rango de bits que quieres comprobar, y luego hacer la comparación. Ejemplo:



Y ahora ya puedes hacer la comparación:


Lo tienes más detallado en este hilo.

Más información en tu propio ordenador en perldoc perlfunc, y en la Web (traducido). Busca por 'stat'. O usa perldoc -f stat

noitora-5 escribiste:¿Y para guardar el dueño del archivo, me sirve la forma: $dueñoArchivo = stat($filename)?

No, lo que devuelve stat() es una lista de 13 valores, de los cuales el quinto es el uid del usuario. El uid es el número de usuario dentro del sistema. Si quieres saber el nombre del usuario a partir del uid, deberás usar la función getpwuid():

Más información en perldoc -f getpwuid