|
|
|
 ping similar a Solaris |
 |
 |
 |
Artículo por saaib on
2003-04-08 17:00:49 Fuente: Urivan Saaib
Este es un pequeño script en perl que simula el comportamiento del ping de Solaris, donde te dice si la maquina esta o no accesible.
#!/usr/bin/perl
# ***************************************************************
# Por Urivan Saaib <saaib@ciberlinux.net>
# Fecha: Marzo 13, 2003
# Licencia: GPL
# Ver. 0.1
#
# Descripcion:
# Hace un ping y dice si esta vivo o muerto ! (huy !)
# ***************************************************************
if ( $#ARGV < 0 )
{
print "Uso: $0 \n";
exit;
}
$ping = `which ping`;
$ping =~ chop $ping;
$result = `$ping -w 5 -c 1 $ARGV[0]`;
if ( $result =~ /Unreachable/ || $result =~ /timeout/ )
{
$flag = 1;
print "$ARGV[0] is death! (oh my God ! You kill Kenny !)\n";
}
elsif ( $result =~ /time=/ )
{
$flag = 2;
print "$ARGV[0] is alive\n";
}
( Comentar
)
|
|
|
|
|
Todo el contenido de este sitio web a menos que se
haga notar la excepción estáa bajo licencia GPL.
Para cualquier
aclaración sobre el contenido de esta licencia, favor de visitar GNU General Public License
| Linux es una marca registrada de Linus Torvalds. Cualquier marca registrada que se referencíen en este sitio son propiedad de sus respectivas compañias. |
|---|
|
