comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Ping

  • 2 Respuestas
  • 1931 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
« 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. You are not allowed to view links. Register or Login($host);
  13.  
  14. my $_IP = You are not allowed to view links. Register or Login($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.         You are not allowed to view links. Register or Login(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. You are not allowed to view links. Register or Login;
  45.  

Desconectado CrazyKade

  • *
  • Underc0der
  • Mensajes: 182
  • Actividad:
    0%
  • Reputación 0
  • Я только знаю что ничего не знаю!
    • Ver Perfil
« Respuesta #1 en: Enero 20, 2014, 12:40:02 pm »
Jajaja me encantó! Sencillo y muy práctico! Bien ahí!

CrazyKade

Desconectado Cl0udswX

  • *
  • Underc0der
  • Mensajes: 868
  • Actividad:
    0%
  • Reputación 4
  • La fisica es el sistema operativo del universo.
    • Ver Perfil
    • cl0udswz - Sequre
  • Skype: cl0udzwx
  • Twitter: @cl0udswzsequre
« Respuesta #2 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.


 

¿Te gustó el post? COMPARTILO!



[Perl Tk] Ping It 0.1

Iniciado por BigBear

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