Saludos, buenas noches. Tengo un problema. Si alguien me puede ayudar, por favor.
Paso a comentar el problema que quiero resolver. Saludos...
Tengo una lista en texto llamada host.txt:
---- host.txt--
admin
cpanel
m
modulo
host
------------------
Desde la consola de Windows realizo un ping:
ping http://www.eldeber.com.bo
y la respuesta es
Haciendo ping a http://www.eldeber.com.bo [204.11.236.22] con 32 bytes de datos:
Tiempo de espera agotado para esta solicitud.
Tiempo de espera agotado para esta solicitud.
Tiempo de espera agotado para esta solicitud.
Tiempo de espera agotado para esta solicitud.
ping host.eldeber.com.bo
Haciendo ping a host.eldeber.com.bo [108.163.131.104] con 32 bytes de datos: <--- ESTO necesito
Tiempo de espera agotado para esta solicitud.
Necesito la primera línea de la respuesta, donde empieza con 'Haciendo'.
Nota: Si bien en los dos ping que realizo sale " tiempo de espera agotado " no interesa ese mensaje: Lo que me interesa es que me capture la primera línea
Tengo un script que realicé pero no me funciona correctamente. Si pueden ayudarme, por favor. Saludos.
#!/usr/bin/perl
use strict;
use warnings;
use Net::Ping;
my $p = Net::Ping->new("tcp", 2);
# puerto 80
$p->port_number(80);
my $filename = 'host.txt';
open(my $fh, '<:encoding(UTF-8)', $filename)
or die "Could not open file '$filename' $!";
while (my $row = <$fh>) {
chomp $row;
print "$row\n";
if ($p->ping($row."."."eldeber.com.bo")) {
print $row.".eldeber.com.bo\n";
print $row." ENCONTRADO...\n";
} else {
print $row.".eldeber.com.bo\n";
print "NO EXISTE...\n";
}
Saludos... Espero que alguien pueda ayudarme, gracias.
Nota: el ejemplo que utilicé es eldeber.com.bo No interesa el dominio, puede ser "ejemplo.com" y ser ping host.ejemplo.com, ping m.ejemplo.com, ping *.ejemplo.com, etc.