Fonction getnetent Perl

La description

Cette fonction obtient l'entrée suivante du fichier / etc / networks, renvoyant - ($ name, $ aliases, $ addrtype, $ net)

Si le fichier / etc / networks est vide, il ne renverra rien et l'appel échouera.

Syntaxe

Voici la syntaxe simple de cette fonction -

getnetent

Valeur de retour

Cette fonction renvoie undef en cas d'erreur sinon Adresse réseau dans un contexte scalaire et liste vide en cas d'erreur sinon Enregistrement réseau (nom, alias, type d'adresse, adresse réseau) dans un contexte de liste.

Exemple

Voici l'exemple de code montrant son utilisation de base -

#!/usr/bin/perl

use Socket;

while ( ($name, $aliases, $addrtype, $net)  = getnetent() ) {

   print "Name = $name\n";
   print "Aliases = $aliases\n";
   print "Addrtype = $addrtype\n";
   print "Net = $net\n";
}

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

Name = default
Aliases = 
Addrtype = 2
Net = 0
Name = loopback
Aliases = 
Addrtype = 2
Net = 2130706432
Name = link-local
Aliases = 
Addrtype = 2
Net = 2851995648