Foro - Perl en Español

por **alesevimor** » 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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

/bin/sh: 7

/bin/false: 19

/bin/bash: 2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

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

Elimina las líneas 8, 9 y 25 (las del bucle foreach(), ya que no te hacen falta).

Cambia todos los '==' de los if(), por 'eq', ya que se trata de una comparación alfanumérica, no numérica.

Debes sacar todos los print() que hay dentro de los if(), y ponerlos después del while(), cuando haya terminado el proceso de conteo.

por **alesevimor** » 2012-02-01 11:17 @511

Ya lo he hecho pero me da 0 la salida:
alejandroubuntu@alejandroubuntu:~/Escritorio$ perl agrupar.pl passwd
/bin/sh:0
/bin/bash:0
/bin/false:0

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(F1, "passwd") or die "No existe el fichero";
$contador=0;
$contador1=0;
$contador2=0;
while ($linea=<F1>){
        chomp $linea;
        @x = split(/:/,$linea);
        if ($x[7] eq "sh")
                {
                $contador++;
                }
        if ($x[7] eq "bash")
                {
                $contador1++;
 
                }
        if ($x[7] eq "false")
                {
                $contador2++;
                }
}
print "/bin/sh:$contador\n";
print "/bin/bash:$contador1\n";
print "/bin/false:$contador2\n";
close F1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-02-01 12:31 @563

Eso significa que el campo 7 no es ni "sh", ni "bash", ni "false".

Si lo que buscas es "/bin/bash", deberás poner exactamente eso.

por **alesevimor** » 2012-02-01 12:43 @571

¡Muchas gracias! =)

Foro - Perl en Español

Agrupar estadísticas de shell del fichero passwd

Agrupar estadísticas de shell del fichero passwd

Publicidad

Re: Agrupar estadísticas de shell del fichero passwd

Re: Agrupar estadísticas de shell del fichero passwd

Re: Agrupar estadísticas de shell del fichero passwd

Re: Agrupar estadísticas de shell del fichero passwd

¿Quién está conectado?