Agrupar estadísticas de shell del fichero passwd
Publicado: 2012-02-01 10:48 @492
¡Hola de nuevo! mira estoy haciendo un script que agrupe las veces que el campo 7 del fichero passwd contiene bin/false, bin/sh y bin/bash. Esto es lo que tengo hecho. El problema es que nunca termina el bucle. Necesito que la salida sea:
Gracias de antemano.;D
Using text Syntax Highlighting
Using perl Syntax Highlighting
- open(F1, "passwd") or die "No existe el fichero";
- $contador=0;
- $contador1=0;
- $contador2=0;
- while ($linea=<F1>){
- chomp $linea;
- @line = split(/:/,$linea);
- foreach $x(@line)
- {
- if ($x[7]=="sh")
- {
- $contador++;
- print "/bin/sh:",$contador;
- }
- if ($x[7]=="bash")
- {
- $contador1++;
- print "/bin/bash:",$contador1;
- }
- if ($x[7]=="false")
- {
- $contador2++;
- print "/bin/false:",$contador2;
- }
- }
- }
- close F1;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Gracias de antemano.;D