• Publicidad

Net::DNS:Resolver

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Net::DNS:Resolver

Notapor 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.004 segundos, usando GeSHi 1.0.8.4
nurikooo
Perlero nuevo
Perlero nuevo
 
Mensajes: 4
Registrado: 2010-06-25 16:37 @734

Publicidad

Re: Net::DNS:Resolver

Notapor explorer » 2010-06-25 17:21 @765

Bienvenido a los foros de Perl en Español, nurikooo.

A mí sí que me funciona:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use common::sense;
  3.  
  4. use Net::DNS::Resolver;
  5.  
  6. monitor('www.google.com', 5, '');
  7.  
  8. sub monitor{
  9.     my ($host, $count, $dirTxt) = @_;
  10.  
  11.     my $ping;
  12.     my $fecha;
  13.  
  14.     my $verFqn = Net::DNS::Resolver->new;
  15.  
  16.     say '<br>aqui estoy</br>';
  17.     if ($verFqn->query($host)) {
  18.  
  19.         $ping = qx(/bin/ping -c$count $host);
  20.         $fecha = qx(date +_%Y-%m-%d_%H:%M.txt);
  21.  
  22. #      open(texto, ">$dirTxt/$host$fecha");
  23. #      print texto $ping;
  24. #      close(texto);
  25.  
  26.         say 'Existe el host';
  27.         say $fecha;
  28.         say $ping;
  29.     }
  30.     else {
  31.         say '<br>Usted a ingresado un host inválido</br>';
  32.     }
  33. }
Coloreado en 0.002 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/.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado