Comprobar la dirección IP del dispositivo y el nombre de nodo

En esta sección del script de ejemplo de Perl de acceso GET SNMP, se comprueba la dirección IP y el nombre de nodo del dispositivo. Utilice este fragmento del script de ejemplo como orientación a la hora de escribir código que compruebe la dirección IP y el nombre de nodo de un dispositivo en scripts de Perl cliente/servidor que recuperan información de SNMP.

El script de ejemplo de Perl de acceso GET SNMP comprueba la dirección IP y el nombre de nodo de un dispositivo del siguiente modo:

 my $nodeIP = $node;  1 

 if ($node !~ /^\d+\.\d+\.\d+\.\d+$/) {  2 

 $nodeIP = gethostbyname($node);  3 

 $nodeIP = inet_ntoa($nodeIP) if (defined $nodeIP) or

 die "Can't find IP address for '$node'";  4 

 }

La lista que figura a continuación explica determinados elementos numerados incluidos en la sección del script de ejemplo de Perl de acceso GET SNMP listado anteriormente:

  1. Asigna el valor almacenado en la variable my $node a la variable my $nodeIP . La variable my $node se ha establecido después de la llamada al constructor RIV::Param.

    Consulte Constructor RIV ::Param para obtener más información.

  2. Determina si se ha especificado una dirección IP o un nombre de nodo (host).
  3. Obtiene la dirección IP del nombre de nodo llamando a las funciones gethostbyname y inet_ntoa.
  4. Si la función defined verifica que el valor de $nodeIP es undef, considérelo como un error muy grave y llame a la función die. La función die imprime el mensaje correspondiente (en este caso, que no se ha podido encontrar la dirección IP de este dispositivo) en la secuencia de errores estándar.