|
Mostrar Mensajes
|
Páginas: [1]
|
1
|
Programación / Scripting / Re: scrip de perl
|
en: 28 Mayo 2004, 06:56 am
|
Como podría añadir el campo espacio utilizado por el usuario, sería con el comando du. Y por que me repite dos veces la palabra PASSWD cuano hago el condicional if con el campo de passwd #!/usr/bin/perl format STDOUT_TOP = SALIDA FORMATEADA . format STDOUT = Usuario UID DIRECTORIO HOME SEGURIDAD ------------------------------------------------------------- @<<<<<<<<<<<<<<<<<@|||||||||||@|||||||||||||||@>>>>>>>>>>>>> $datos[0] $datos[2] $datos[5] $datos[1] . write; $FILE = "/etc/passwd"; open(INFO,$FILE); @lines= <INFO>; close (INFO); foreach $a (@lines) { @datos=split(":",$a); if ($datos[2] <=0) { print $datos[2]= "UID=0\t" } if ($datos[1]= x) { print $datos[1]= "PASSWD\t" } print "$datos[0]\t $datos[2]\t $datos[5]\t $datos[1]\n"; }
|
|
|
2
|
Programación / Scripting / Re: scrip de perl
|
en: 28 Mayo 2004, 06:02 am
|
Por cierto se podría poner un campo para que me saliera tambien el espacio que utiliza cada ususario, creo que con el comando du podría hacerlo
Gracias
|
|
|
3
|
Programación / Scripting / Re: scrip de perl
|
en: 28 Mayo 2004, 06:00 am
|
Un saludo Mr. Potato. Me has dato muy buenas pistas. Ahora lo que no logro conseguir es si en el camp User ide es 0 quiero que me salga el mensaje UID=0 Y en el campo passwd es "!" o "*" quiero que me salga mesaje=PASSWD.
A ver si me vuelver a orientar.
Un saludo. Stres
|
|
|
4
|
Programación / Scripting / Esto es lo que estoy haciendo
|
en: 27 Mayo 2004, 06:49 am
|
De momento leo el /etc/passwd #!/usr/bin/perl
$file = "etc/passwd"; #abro el fichero open (INFO, $file); # lo abre @lines = <INFO>; # lo lee en un vector close (INFO); #cierra el fichero print @lines; #imprime el vector
Esto es lo que llevo echo ahora el problema que me surge es como ponerlo con el formato que indique en el primer post creo que hay que utilizar el split y el espacio el du.
voy bien encaminado.
Un saludo de stres
|
|
|
5
|
Programación / Scripting / scrip de perl
|
en: 26 Mayo 2004, 07:22 am
|
Estoy empezando con perl y me piden el siguiente ejercicio, tengo que escribir un scrip de perl pensado para administrador, que produzca el siguiente resultado:
usuario (UID) directorio home espacio seguridad ------------------------------------------------------------------------------------------------ alberto (464) /home/alberto 845495K
el apartado 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)
A ver si me podeis orientar.
|
|
|
6
|
Programación / Scripting / Ayuda con script de Perl
|
en: 26 Mayo 2004, 07:15 am
|
Estoy intentando hacer un script en perl (utilizo GNULinux Fedora Core1) que me compruebe todos los bookmarks (de netscape) de un usuario, e informe sobre aquellas direcciones que ya no son validas.
Creo que debo utilizar el comandao wget pero no estoy muy seguro.
A ver si me podeis orientar.
|
|
|
|
|
|
|