Ping

Iniciado por Juan, Enero 19, 2014, 10:55:16 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Para los que les gusta usar sus propias cosas y ver como funcionan.

Código: perl
# 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
El talento se parece al tirador que da en un blanco que los demás no pueden alcanzar; el genio se parece al tirador que da en un blanco que los demás no pueden ver.