25/11/2004, 10:19
|
 | $moderador{'Esteban'} | | Fecha de Ingreso: febrero-2002 Ubicación: Buenos Aires - Argentina
Mensajes: 8.762
Antigüedad: 22 años, 3 meses Puntos: 90 | |
| en la función que tienes
sub envia {
$INSTR++;
print $SOCK "$INSTR envia\n";
print STDOUT "$INSTR envia\n" if $DEBUG;
$FLAG=$INSTR;
$END=1;
}
en vez de hacer
print $SOCK "$INSTR envia\n";
hacé
print "$INSTR envia\n";
con eso en vez de enviarlo a socket lo imprimes por pantalla
y en
$FLAG=$INSTR;
$END=1;
la puede estar finalizando la operatoria, fíjate que coloca $END=1; intená dejarla en 0 y colocarle 1 cuando terminas el nucle, talvez es eso...
Saludos
__________________
Esteban Quintana |