Foro - Perl en Español

Publicado: **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.003 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.004 segundos,  usando GeSHi 1.0.8.4

Publicado: **2011-01-31 15:33 @689**

El problema está en la línea 31. Ahí se está comparando valores numéricos, pero tu estás buscando caracteres alfanuméricos.

Cambia el '==' por 'eq'.

Publicado: **2011-01-31 15:53 @703**

¡Uf!, tienes razón, =( perdón, no me había dado cuenta.

Publicado: **2011-01-31 20:45 @906**

Subí el código que estaba haciendo del script a Google Code:

http://code.google.com/p/checklistlinux/

Como siempre, muchas gracias por la ayuda que me dan.

Saludos.

Publicado: **2011-02-03 14:24 @642**

Consulta: ¿hay posibilidades de agregarle varios argumentos a la ejecución de la aplicación?

Ejecuto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

tux ~/Escritorio/checklist-linux $ perl checklist.pl --usuariodefault--syslogColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Solamente me ejecuta el primer argumento. ¿Tengo que hacer un for() de la lectura de los argumento para hacer lo que necesito?

Saludos.

Publicado: **2011-02-03 17:48 @783**

De manera predeterminada Switch() se detiene en la primer coincidencia: Switch
O agregas next() en cada 'case' o cambias al principio use Switch 'fallthrough'; para que no se detenga y recorra todos los argumentos.

Publicado: **2011-02-03 18:18 @804**

Le agregue "next" pero no me funcionó.

Código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
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.002 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.002 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.

Publicado: **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.002 segundos,  usando GeSHi 1.0.8.4

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

Publicado: **2011-02-03 20:50 @909**

Muchas Gracias, funciona correctamente.

Saludos.

Publicado: **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.004 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

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