Foro - Perl en Español

por **nurikooo** » 2010-06-25 16:42 @738

Hola. Necesito hacer un ping a un host, pero debo verificar que el host sea válido... Este es el código que tengo y no puedo encontrar el error gracias...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub monitor{
my$host=$_[0];
my$count=$_[1];
my$dirTxt=$_[2];
my$ping;
my$fecha;
my$verFqn= Net::DNS::Resolver->new;
print"<br>aqui estoy</br>\n";
if($verFqn->query($host)){

$ping=qx(/sbin/ping -c$count$host);
$fecha=qx(date +_%Y-%m-%d_%H:%M.txt);

open(texto,">$dirTxt/$host$fecha");
print texto $ping;
close(texto);

print"existe el host";
}else{
print"<br>Usted a ingresado un host inválido</br>";
}
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
use common::sense;
 
use Net::DNS::Resolver;
 
monitor('www.google.com', 5, '');
 
sub monitor{
    my ($host, $count, $dirTxt) = @_;
 
    my $ping;
    my $fecha;
 
    my $verFqn = Net::DNS::Resolver->new;
 
    say '<br>aqui estoy</br>';
    if ($verFqn->query($host)) {
 
        $ping = qx(/bin/ping -c$count $host);
        $fecha = qx(date +_%Y-%m-%d_%H:%M.txt);
 
#      open(texto, ">$dirTxt/$host$fecha");
#      print texto $ping;
#      close(texto);
 
        say 'Existe el host';
        say $fecha;
        say $ping;
    }
    else {
        say '<br>Usted a ingresado un host inválido</br>';
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El único cambio que he hecho, es que en mi sistema, el comando ping está en la carpeta /bin/, no en la /sbin/.

Foro - Perl en Español

Net::DNS:Resolver

Net::DNS:Resolver

Publicidad

Re: Net::DNS:Resolver

¿Quién está conectado?