Funzione getnetent di Perl

Descrizione

Questa funzione ottiene la voce successiva dal file / etc / networks, restituendo - ($ name, $ aliases, $ addrtype, $ net)

Se il file / etc / networks è vuoto, non restituirà nulla e la chiamata fallirà.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

getnetent

Valore di ritorno

Questa funzione restituisce undef in caso di errore altrimenti Indirizzo di rete in contesto scalare e elenco vuoto in caso di errore altrimenti Record di rete (nome, alias, tipo di indirizzo, indirizzo di rete) nel contesto di elenco.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di 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";
}

Quando viene eseguito il codice sopra, produce il seguente risultato:

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