Ping

  • 2 Respuestas
  • 4600 Vistas

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

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil

Ping

  • en: Enero 19, 2014, 10:55:16 pm
Para los que les gusta usar sus propias cosas y ver como funcionan.

Código: Perl
  1. # ping.pl por Juan fary.
  2. # Realiza ping desde perl facilmente.
  3. # modo de uso:
  4. # perl ping.pl www.google.es
  5. # si queremos que haga ping infinito -> perl ping.pl www.google.es -t
  6.  
  7. use v5.16;
  8. use Net::Ping;
  9. use Socket;
  10.  
  11. my $host = $ARGV[0];
  12. chomp($host);
  13.  
  14. my $_IP = gethostbyname($host);
  15. my $IP = inet_ntoa($_IP);  
  16.  
  17. my $p = Net::Ping->new("icmp",,32);
  18.  
  19. say "\nHaciendo ping a $host [$IP] con 32 bytes de datos:\n";
  20.  
  21. my $correctos = 0;
  22. my $incorrectos = 0;
  23.  
  24. my $i = 0;
  25.  
  26. while ($i < 4)
  27. {  
  28.    if ($p->ping($host,10))
  29.    {
  30.       say "Respuesta corrrecta desde $IP: bytes = 32.";
  31.       $correctos++;  
  32.    }else{
  33.       say "No se a obtenido respuesta desde $IP.";
  34.       $incorrectos++;
  35.    }
  36.    
  37.    sleep(1);
  38.    $i++ if $ARGV[1] ne "-t";
  39. }
  40.  
  41. say "\nEstadisticas de ping para $IP";
  42. say "    Paquetes: enviados = 4, recibidos = $correctos, perdidos = $incorrectos.";
  43.  
  44.  

Desconectado CrazyKade

  • *
  • Underc0der
  • Mensajes: 184
  • Actividad:
    0%
  • Reputación 0
  • Я только знаю что ничего не знаю!
    • Ver Perfil

Re:Ping

  • en: Enero 20, 2014, 12:40:02 pm
Jajaja me encantó! Sencillo y muy práctico! Bien ahí!

CrazyKade

Desconectado Cl0udswX

  • *
  • Ex-Staff
  • *****
  • Mensajes: 896
  • Actividad:
    16.67%
  • Country: 00
  • Reputación 4
  • La fisica es el sistema operativo del universo.
  • Skype: cl0udzwx
  • Twitter: @cl0udswx
    • Ver Perfil
    • cl0udswz - Sequre

Re:Ping

  • en: Enero 20, 2014, 05:19:31 pm
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.

 

[Perl Tk] Ping It 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1404
Último mensaje Marzo 31, 2012, 10:31:47 pm
por BigBear