#!/usr/bin/env perl
use strict;
use Socket;
sub Ping {
my $ip = shift;
my $proto = getprotobyname('tcp'); #Este es el protocolo, obvio
socket(Socket_Handle, AF_INET, SOCK_STREAM, $proto);
my $port = getservbyname("pueto", "tcp");
my $sin = sockaddr_in($port, inet_aton("$ip"));
if(connect(Socket_Handle, $sin)){
return "En linea";
}
else {
return "$ip muerto";
}
close Socket_Handle;
}
sub HacerSync {
print "Aqui seria el codigo para hacer la actualizacion\n";
print "El problema es que no se como lo quieres hacer\n";
}
oepn FL, "Archivo_con_ips.txt" or die "Problemas con el archivo: $!\n";
foreach my $ip (<FL>){
print "Mirando ip $ip\n";
my $return = Ping($ip);
if($return eq "En linea"){
HacerSybc();
}
else { print "$return\n"; }
}
close FL;