Função Perl getnetent

Descrição

Esta função obtém a próxima entrada do arquivo / etc / networks, retornando - ($ name, $ aliases, $ addrtype, $ net)

Se o arquivo / etc / networks estiver vazio, ele não retornará nada e a chamada falhará.

Sintaxe

A seguir está a sintaxe simples para esta função -

getnetent

Valor de retorno

Esta função retorna undef em caso de erro, caso contrário, o endereço de rede no contexto escalar e a lista vazia em caso de erro, caso contrário, o registro da rede (nome, apelidos, tipo de endereço, endereço de rede) no contexto da lista.

Exemplo

A seguir está o código de exemplo que mostra seu uso básico -

#!/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 o código acima é executado, ele produz o seguinte resultado -

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