Underc0de

Programación Scripting => Perl => Mensaje iniciado por: Juan en Enero 19, 2014, 10:55:16 PM

Título: Ping
Publicado por: Juan en Enero 19, 2014, 10:55:16 PM
Para los que les gusta usar sus propias cosas y ver como funcionan.

Código (perl) [Seleccionar]
# 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;
Título: Re:Ping
Publicado por: CrazyKade en Enero 20, 2014, 12:40:02 PM
Jajaja me encantó! Sencillo y muy práctico! Bien ahí!

CrazyKade
Título: Re:Ping
Publicado por: Cl0udswX en Enero 20, 2014, 05:19:31 PM
Muy bueno, sencillo pero funcional.

+1