código.
Using perl Syntax Highlighting
- use IO::Socket;
- my $sockea = new IO::Socket::INET(PeerAddr => "localhost",PeerPort => "80",
- Proto => "tcp",Timeout => 5);
- menu:
- my $re;
- print ">";
- chomp(my $cmd = <stdin>);
- print $sockea $cmd."\r\n";
- $sockea->read($re,5000);
- print $re."\n";
- goto menu;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El problema está en que no sé cómo mantener la variable $sockea activa para poder seguir enviando sentencias al puerto 80.
¿ Alguien me puede ayudar ?
