Mensajes

Para ejecutar un prorgama externo a perl,se pude utilizar  system( " lo q sea" ) o la comilla invertida y ejecuta un comando cualquiera q le indiques,  pero no se puede recojer lo q muestra el comando para utilizarlo dentro de mi programa en perl. La forma para hacer eso es la siguiente:

Código [Seleccionar] Expandir


open(USUARIO,"whoami|"); #redireccionamos la salida del comando a un pipe
$usuario =<USUARIO>; #leemos del pipe
close(USUARIO);
chomp($usuario);


Con este codigo obtenemos en la variable $usuario lo q ha devuelto el comando 'whoami' ,  de la misma forma se puede utilizar con cualquier comando, como du por ejemplo.
Haz un "man du" en la consola y mira como funciona. Para pasar parametros al comando:

open(USUARIO,"du $param1 $param2 |"); # ejemplo


salu2

Pues no parece complicado,mira:  yo llamaria a otros programas tipicos de linux, como 'whois' ,  'du'  y trabajaria con el fichero /etc/passwd. Con esas tres cosas ya puedes extraer toda la informacion q necesitas mostrar.

t doy mas pistas utilizaria 'whoami' para saber q usuario soy, buscaria la linea correspondiente en el /etc/passw. De ahi saco el directorio home, el uid, y poco mas.... ves por donde va la cosa??

salu2