Para los que les gusta usar sus propias cosas y ver como funcionan.
# ping.pl por Juan fary.
# Realiza ping desde perl facilmente.
# modo de uso:
# perl ping.pl www.google.es
# si queremos que haga ping infinito -> perl ping.pl www.google.es -t
use v5.16;
use Net::Ping;
use Socket;
my $host = $ARGV[0];
chomp($host);
my $_IP = gethostbyname($host);
my $IP = inet_ntoa($_IP);
my $p = Net::Ping->new("icmp",,32);
say "\nHaciendo ping a $host [$IP] con 32 bytes de datos:\n";
my $correctos = 0;
my $incorrectos = 0;
my $i = 0;
while ($i < 4)
{
if ($p->ping($host,10))
{
say "Respuesta corrrecta desde $IP: bytes = 32.";
$correctos++;
}else{
say "No se a obtenido respuesta desde $IP.";
$incorrectos++;
}
sleep(1);
$i++ if $ARGV[1] ne "-t";
}
say "\nEstadisticas de ping para $IP";
say " Paquetes: enviados = 4, recibidos = $correctos, perdidos = $incorrectos.";
exit;
Jajaja me encantó! Sencillo y muy práctico! Bien ahí!
CrazyKade
Muy bueno, sencillo pero funcional.
+1