🚀 go-pugleaf

TvX en portatil <Tovaritx@mi28.tovaritx.red> wrote:

Apunta...

------------------------------------
#!/usr/bin/perl

use IO::Socket;

print "Comprobar IP?\n";
$ip=<STDIN>;
print "Puerto?\n";
$puerto=<STDIN>;

$pwd= IO::Socket::INET -> new (
                Timeout => "3",
                PeerAddr=> "$ip\:$puerto");

if ($pwd) {print "Activo!\n";}
else {print "El puerto $puerto de la aquina $ip esta cerrado.\n";}

--------------------------------------------


Espero que te valga....solo tienes que usar el modulo IO:Socket.



> Hola,
> necesito saber si un ordenador est� accesible via red desde un script de
> perl ya que de �l me bajo el correo con dicho script y la comprobaci�n
> se alarga innecesariamente cuando no hay conexi�n...

> Saludines y muchas gracias por la atenci�n
> -- 
> --------------------------------------------------------------
> |    \|/ En breve: "La cocina de la Vir"...  _O)   __/\__    |
> |   (.~.)            #19043                  /\\   \    /    |
> |__oO(_)Oo__ ___    ____ ____  ___           \_V   /_/\_\    |
> |\__    ___/ \   \ /   / \   \/  / Internautas del mundo,    |
> |  |    |     \   Y   /   \     /        �Unios!             |
> |  |____|       \___/     /__/\ \ <NospaMvirginia1@iname.com>|
> ------------------------------\/------------------------------