Foro - Perl en Español

por **seguridadenmimail** » 2012-05-19 13:48 @617

Los molesto porque tengo una duda y no logro poder resolverla.

Estoy usando el módulo en cuestión para analizar información de nmap. Ahora quería pasarle un directorio donde hay muchos "xml" y que me analice todos. En estos momentos solamente le estoy pasando un archivo "xml" y por eso funciona.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $np = new Nmap::Parser;
my $infile = $ARGV[0];
$np->parsefile($infile);
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿Alguien me puede guiar?

Puedes hacer un listado de los archivos presentes en el directorio, por medio de glob(). O usar opendir()-readdir()-closedir() para hacer un bucle por el directorio, de archivo en archivo.

Por estos foros hay ejemplos de estas funciones.

Tienes más información sobre estas funciones en tu propio ordenador, ejecutando perldoc -f nombre_función .

por **seguridadenmimail** » 2012-05-19 15:16 @677

Gracias, lo pude lograr con:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dir = $ARGV[0];
@files = <$dir/*.xml>;
foreach $file (@files) {
$np->parsefile($file);
..........
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra consulta: ¿se puede hacer un eval de 2 módulos? Yo por ahora hago de uno solo con:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

BEGIN {
 
    eval "use MODULO";
 
    if ( $@ ) {
 
        warn  "Error to load module: MODULO\n"
 
        . "Install Module:\n"       
 
        . "\t\tcpan\n"
 
        . "\t\tcpan> install MODULO\n";
 
exit ();
 
 }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-05-19 19:37 @859

Lo mismo, lo puedes resolver con un bucle... (parece que todos tus problemas, últimamente, se resuelven así

)

Otra opción:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Module::Load::Conditional qw[can_load check_install requires];
 
my $use_list = {
    CPANPLUS     => 0.05,
    LWP          => 5.60,
    'Test::More' => undef,
};
 
if (can_load( modules => $use_list )) {
   print 'todos los módulos se cargaron bien';
} 
else {
   print 'Falló la carga de los módulos requeridos';
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero quizás no hace falta tanto... con un bucle for() sobre los nombres a cargar, y por cada uno, ver si ha provocado fallos, o no está, y salir con un mensaje de error y terminar.

La receta 12.2 de Perl Cookbook también te puede ayudar.

por **seguridadenmimail** » 2012-05-19 20:01 @875

Estoy probando con:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $use_list = {
    Nmap::Parser                 => 1.21,
    Excel::Writer::XLSX          => 0.47,
    'Test::More' => undef,
};
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y obtengo el mensaje de que no se cargaron los módulos :S

Saludos.

por **explorer** » 2012-05-20 05:24 @266

La solución que te he puesto es para ser usada con el módulo Module::Load::Conditional, y con su función can_load().

Debes poner las mismas líneas que te he puesto yo, y poner los nombres de los módulos entre comillas simples, en caso de que contengan '::'. Y los números que tienen a su derecha es la versión mínima que requerimos de ellos. En caso de que no nos importe ese número de versión, pondremos undef.

por **seguridadenmimail** » 2012-05-20 09:24 @433

¡Muchas, gracias! Perdón por no haber prestado tanta atención.

Foro - Perl en Español

Recorrer directorio con módulo Nmap::Parser

Recorrer directorio con módulo Nmap::Parser

Publicidad

Re: Recorrer directorio con módulo Nmap::Parser

Re: Recorrer directorio con módulo Nmap::Parser

Re: Recorrer directorio con módulo Nmap::Parser

Re: Recorrer directorio con módulo Nmap::Parser

Re: Recorrer directorio con módulo Nmap::Parser

Re: Recorrer directorio con módulo Nmap::Parser

¿Quién está conectado?