Foro - Perl en Español

por **situ** » 2011-01-31 14:50 @660

Perdón, te paso el problema que tengo; me da un falso/positivo.

Código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %valor_correcto_de = (
    Protocol => 2,
    PermitRootLogin => "no",
);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Cuando lo corro me dice que el valor de PermitRootLogin es correcto pero en verdad no es así, porque en el archivo lo tengo como "yes"

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

situ@tux ~/ $ grep PermitRootLogin /etc/ssh/sshd_config 
PermitRootLogin yes
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

 
switch ($opciones) {
case "--usuariodefault"     { usuariodefault(); next }
case "--permisosAD"         { permisosAD(); next}
case "--suidguidsticky"     { suidguidsticky(); next}
case "--sinownergroup"      { sinownergroup(); next}
case "--writeparatodos"     { writeparatodos(); next}
case "--syslog"             { syslog(); next}
case "--usuariosgrupos"     { usuariosgrupos (); next}
case "--expiracionUsuarios" { expiracionUsuarios(); next}
case "--seguridadnet"       { seguridadnet(); next}
case "--seguridadssh"       { seguridadssh(); next}
case "--todos"              { todos(); }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ejecuto script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

casa@casa /tmp $ perl checklist-2.0.3.pl --usuariodefault --syslog
----------------------------------------------------------------------------------------------------------------
Sistema Operativo: Linux
Release del Kernel: 2.6.31-22-generic
Hostname: casa
Datos Adicionales: Linux casa 2.6.31-22-generic #65-Ubuntu SMP Thu Sep 16 15:48:58 UTC 2010 i686 GNU/Linux
----------------------------------------------------------------------------------------------------------------
 -- Verificacion de usuarios default
----------------------------------------------------------------------------------------------------------------
Negativo: El usuario lp existe
Negativo: El usuario news existe
Negativo: El usuario uucp existe
Negativo: El usuario games existe
----------------------------------------------------------------------------------------------------------------
Se a ingreso una opcion incorrecta
----------------------------------------------------------------------------------------------------------------
Informacion: Se da por finalizado el proceso de chequeo
Informacion: El reporte fue salvado con el nombre: casa-03-02-2011.html
Informacion: Las recomendaciones fueron guardadas en el archivo: casa-03-02-2011-recomendacion.html
----------------------------------------------------------------------------------------------------------------
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Ejecuto el primer argumento "--usuariodefault" y me advierte que ingresé mal el 2do pero está bien, es como sino toma nada como 2do argumento.

Cuando muestra "Se a ingreso una opción incorrecta" es porque el argumento ingresado es erróneo.

por **wanako** » 2011-02-03 19:57 @873

Porque sólo le pasas el primer argumento a Switch():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use Switch 'fallthrough';
 
## $opciones= $ARGV[0]; Primer argumento
## chomp $opciones;
 
print "Argumentos: ";
switch (\@ARGV) {
    case "-a" { print "A "; }
    case "-b" { print "B "; }
    case "-c" { print "C "; }
    case "-d" { print "D "; }
    else { print "nunu "; }
}
print "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aunque es mejor usar Getopt::Long para un mayor control.

por **situ** » 2011-02-03 20:50 @909

Muchas Gracias, funciona correctamente.

Saludos.

por **situ** » 2011-02-14 07:55 @371

Tengo 3 funciones, de las cuales solamente la primera me hice el print() a un archivo externo. Las demás no me funciona este output.

Output externo = "ARCH"

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub expiracionUsuarios {
our %valor_correcto_de;
my $FICHERO = '/etc/login.defs';
my $login_defs = do { undef $/; open F, $FICHERO; <F> };
for my $parametro (sort keys %valor_correcto_de) {
    if (my($valor_actual) = $login_defs =~ /^ $parametro \s+ (\S+?) $/xsim) {
        if ($valor_actual == $valor_correcto_de{$parametro}) {
            print BOLD, GREEN, 'Positivo: ', RESET, "El valor del parametro $parametro es correcto\n";
        }
        else {
            print BOLD, RED  , 'Negativo: ', RESET, "El valor del parametro $parametro es incorrecto: ",
                "$valor_actual != $valor_correcto_de{$parametro}\n";
 print ARCH "<tr><td><font color=#ff0000 face=Verdana size=1>Negativo</font><font face=Verdana size=1> El valor del parametro $parametro es incorrecto: $valor_actual != $valor_correcto_de{$parametro}</font></td></tr>\n";
        }
    }
    else {
        print BOLD . 'No existe ' . RESET, "el parametro $parametro en $FICHERO";
    }
}
}
 
sub seguridadnet {
our %valor_correcto_net;
my $FICHERO2 = '/etc/sysctl.conf';
my $var_net = do { undef $/; open F, $FICHERO2; <F> };
for my $parametro2 (sort keys %valor_correcto_net) {
    if (my($valor_actual_net) = $var_net =~ /^ $parametro2(\S+?) $/xsim) {
        if ($valor_actual_net == $valor_correcto_net{$parametro2}) {
            print BOLD, GREEN, 'Positivo: ', RESET, "El valor del parametro $parametro2 es correcto\n";
        }
        else {
    print BOLD, RED  , 'Negativo: ', RESET, "El valor del parametro $parametro2 es incorrecto: ", 
            "$valor_actual_net != $valor_correcto_net{$parametro2}\n";
 print ARCH "<tr><td><font color=#ff0000 face=Verdana size=1>Negativo</font><font face=Verdana size=1> El valor del parametro $parametro2 es incorrecto: $valor_actual_net != $valor_correcto_net{$parametro2}</font></td></tr>\n";
        }
    }
    else {
        print BOLD . 'No existe ' . RESET, "el parametro $parametro2 en $FICHERO2\n";
    }
}
}
 
sub seguridadssh {
our %valor_correcto_ssh;
my $FICHERO3 = '/etc/ssh/sshd_config';
my $var_ssh = do { undef $/; open F, $FICHERO3; <F> };
for my $parametro3 (sort keys %valor_correcto_ssh) {
    if (my($valor_actual_ssh) = $var_ssh =~ /^ $parametro3 \s+ (\S+?) $/xsim) {
        if ($valor_actual_ssh eq $valor_correcto_ssh{$parametro3}) {
            print BOLD, GREEN, 'Positivo: ', RESET, "El valor del parametro $parametro3 es correcto\n";
        }
        else {
            print BOLD, RED  , 'Negativo: ', RESET, "El valor del parametro $parametro3 es incorrecto: $valor_actual_ssh != $valor_correcto_ssh{$parametro3}\n";
    print ARCH "<tr><td><font color=#ff0000 face=Verdana size=1>Negativo</font><font face=Verdana size=1> El valor del parametro $parametro3 es incorrecto: $valor_actual_ssh != $valor_correcto_ssh{$parametro3}</font></td></tr>\n";
        }
    }
    else {
        print BOLD . 'No existe ' . RESET, "el parametro $parametro3 en $FICHERO3\n";
    }
}
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Solamente me hace el output la función "expiracionUsuarios".

Foro - Perl en Español

Análisis del archivo /etc/login.defs

Re: Análisis del archivo /etc/login.defs

Publicidad

Re: Análisis del archivo /etc/login.defs

Re: Análisis del archivo /etc/login.defs

Re: Análisis del archivo /etc/login.defs

Re: Análisis del archivo /etc/login.defs

Re: Análisis del archivo /etc/login.defs

Re: Análisis del archivo /etc/login.defs

Re: Análisis del archivo /etc/login.defs

Re: Análisis del archivo /etc/login.defs

Re: Análisis del archivo /etc/login.defs

¿Quién está conectado?