Estuve probando pero no obtengo la conexión que necesito.
Using perl Syntax Highlighting
$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.002 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.
Publicado: 2012-04-18 03:20 @180