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.
