"or die" funciona bien cuando el host no está, pero cuando la IP está bien y el puerto mal, entonces ocurre un falso positivo y continúa tratando de mandar paquetes.
Otra cosa. "or die" no me viene bien tampoco porque uso una función aparte llamada "printer" que usa colores y no puedo terminar el script mostrando el color.
Using perl Syntax Highlighting
- $socket = IO::Socket::INET->new(
- PeerAddr => "localhost",
- PeerPort => "6668",
- Proto => "udp");
- $socket or die "no socket :$!"; # necesito usar una función llamada printer
- if($socket->connected) {
- while (1) {
- # terminar llegando acá como si se hubiese conectado
- }
- } else {
- printer("not connected"); #necesito que muestre este mensaje pero nunca funciona esta línea
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¿ Cómo soluciono este problema ?
