🚀 go-pugleaf

forodejazz@yahoo.es (David Asorey �lvarez) wrote in message news:<1759581e.0306130031.366b76d5@posting.google.com>...
> 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.

Gracias David! Un saludo.

Anxo.