Capturar una tecla sin detener un bucle
Publicado: 2018-01-14 15:10 @674Hola, quisiera saber cómo se puede capturar una tecla del teclado, pero que no me lo solicite explícitamente, es decir, que no se detenga el bucle que se está ejecutando.
Dejaré mi código para que se entienda mejor lo que deseo. Debo mencionar que es sólo con fines educativos que hago este tipo de script, sólo soy un programador aficionado.
Sólo quiero saber cuántos paquetes soy capaz de enviar; también debe ser posible saber cuántos bytes son enviados en mi pequeño mensaje, sumadas las cabeceras y el texto.
Dejaré mi código para que se entienda mejor lo que deseo. Debo mencionar que es sólo con fines educativos que hago este tipo de script, sólo soy un programador aficionado.
Using perl Syntax Highlighting
- use strict;
- use strict;
- use warnings;
- use IO::Socket::INET;
- my $sock = new IO::Socket::INET(
- PeerAddr => $ARGV[0],
- PeerPort => $ARGV[1],
- Proto => 'tcp'
- ) or die "error creando el socket: $!";
- my $count;
- my $exit = "";
- my $data = "just flood";
- while ($exit ne "q"){
- $count ++;
- print $sock $data;
- #aquí necesito saber como capturar una tecla sin detener el bucle.
- }
- print $count;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Sólo quiero saber cuántos paquetes soy capaz de enviar; también debe ser posible saber cuántos bytes son enviados en mi pequeño mensaje, sumadas las cabeceras y el texto.