Sistemas Operativos > GNU/Linux

 Ping Y -w

<< < (3/3)

arielb:
son programas, existe un grupo de programadores que trabaja en el desarrollo y la nueva version que tiene cambios según lo solicitado por el usuario o corregido hay que actualizarlo.

su -:
Bueno en ese caso todo cambia.
Bien en Perl el ping se programaria hasi:

--- Código: Text ---#!/usr/bin/env perluse strict;use Socket;sub Ping {  my &#036;ip = shift;  my &#036;proto = getprotobyname('tcp'); #Este es el protocolo, obvio  socket(Socket_Handle, AF_INET, SOCK_STREAM, &#036;proto);  my &#036;port = getservbyname(&#34;pueto&#34;, &#34;tcp&#34;);  my &#036;sin  = sockaddr_in(&#036;port, inet_aton(&#34;&#036;ip&#34;));  if(connect(Socket_Handle, &#036;sin)){   return &#34;En linea&#34;;  }  else {   return &#34;&#036;ip muerto&#34;;  }  close Socket_Handle;}sub HacerSync {  print &#34;Aqui seria el codigo para hacer la actualizacion&#092;n&#34;;  print &#34;El problema es que no se como lo quieres hacer&#092;n&#34;;}oepn FL, &#34;Archivo_con_ips.txt&#34; or die &#34;Problemas con el archivo: &#036;!&#092;n&#34;;  foreach my &#036;ip (&#60;FL&#62;){    print &#34;Mirando ip &#036;ip&#092;n&#34;;    my &#036;return = Ping(&#036;ip);    if(&#036;return eq &#34;En linea&#34;){      HacerSybc();    }   else { print &#34;&#036;return&#092;n&#34;; }  }close FL;  Bueno era algo como eso  :smartass:

Navegación

[0] Índice de Mensajes

[*] Página Anterior