Foro - Perl en Español

por **explorer** » 2012-04-18 03:20 @180

No lo he pensado mucho, pero quizás con un bucle fork(). Con Parallel::ForkManager, por ejemplo.

P.D. ¡Vaya respuesta para mi mensaje número 10.000! :lol:

$reporte = "reporte.txt";
 
open (F,">> $reporte");
 
use Parallel::ForkManager;
$pm = Parallel::ForkManager->new(4);
 
foreach my $i (1..4) {
    $pm -> start($i) and next;
        $comando = qx(telnet 192.168.3.110 23);
        print "conexion numero $i\n";
        print $comando;
        print F "conexion numero $i\n";
        print F $comando;       
    $pm->finish;  
   };
$pm->wait_all_children; 
 
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El contenido del archivo "reporte.txt" es el siguiente:

conexion numero 1
conexion numero 2
conexion numero 3
conexion numero 4

No puedo lograr de ejecutar el comando.

por **explorer** » 2012-04-18 17:43 @780

Claro, porque solo lo has ejecutado en la línea 2.

Debes meter esa línea antes de la 11.

por **seguridadenmimail** » 2012-04-19 07:47 @366

Utilizando otro comando funciona el script, eso es lo raro. Hice el cambio como comentas en tu post.

por **explorer** » 2012-04-19 09:31 @438

Es posible que la ejecución de telnet no genere ninguna salida hacia la salida estándar, que es lo que está capturando qx().

Si con Net::Telnet::Cisco no conseguiste conectarte, quizás puedas con Net::Telnet (ejemplo).

Y si no... ir pensando en usar algo parecido a Expect, como por ejemplo, Expect::Angel.

Foro - Perl en Español

Realizar muchas conexiones a un mismo switch Cisco

Re: Realizar muchas conexiones a un mismo switch Cisco

Publicidad

Re: Realizar muchas conexiones a un mismo switch Cisco

Re: Realizar muchas conexiones a un mismo switch Cisco

Re: Realizar muchas conexiones a un mismo switch Cisco

Re: Realizar muchas conexiones a un mismo switch Cisco

¿Quién está conectado?