🚀 go-pugleaf

anxo_anton@ya.com (Anxo) escribi�:

> Hola a todos.
> 
>        Tengo que hacer un programa en perl, pensado para el
> administrador, que produzca la siguiente informaci�n sobre los
> usuarios del sistema:
> 
> 	usuario     (UID)   directorio home     espacio    seguridad
> 	-----------------------------------------------------------------
> 	alberto     (464)   /home/alberto       845495K	
> 	laura       (0)     /alumnos/laura      711K       UID=0
> 	monitor     (462)   /home/monitor       882212K    PASSWD
> 	
> 
> El apartado de seguridad estar� en blanco, salvo si se da alguno de
> estos casos:
> 
>     * El user id es cero (mensaje: UID=0)
>     * la informaci�n sobre password en /etc/passwd es "!" o "*"
> (mensaje: PASSWD)
> 
> 
> Bueno, yo he llegado a la conclusi�n de que tengo que abrir el fichero
> /etc/passwd para leer la informaci�n de los usuarios que viene
> contenida en �l, en lo que se refiere a nombre contrase�a y user id.
> El caso es que no se si tengo que hacrlo en un array o como una
> variable escalar


En el grupo es.comp.os.linux.programacion es probable que te puedan
echar una manita, no en es.comp.os.linux.misc.

Redirijo la respuesta a ecol.programacion

Una pista de todas formas:

open(FICHERO, "/etc/passwd");
while(<FICHERO>) { # Leemos l�nea a l�nea el fichero

   # Partes en trozos la l�nea. La tienes en la variable $_
   @campos = split(":", $_);
   # Haces lo que quieras con cada trozo
   
}
close(FICHERO);

> y en el apartado espacio tampoco se de donde sacar la
> informaci�n, os agradecer�a que me orientaseis sobre como debo enfocar
> el script

Dentro del while puedes llamar el comando "du" (disk usage):

open(FICHERO, "/etc/passwd");
while(<FICHERO>) {
   @campos = split(":", $_);
   print `du -hs $campos[5]`;
}
close(FICHERO);

�Ya lo tienes casi todo hecho!  :-)

Un saludo.

David.