Perl getnetent Function

---

---

Description

This function gets the next entry from the /etc/networks file, returning − ($name, $aliases, $addrtype, $net)

If /etc/networks file is empty then it would not return anything and call will fail..

Syntax

Following is the simple syntax for this function −

getnetent

Return Value

This function returns undef on error otherwise Network address in scalar context and empty list on error otherwise Network record (name, aliases, address type, network address) in list context.

Example

Following is the example code showing its basic usage −

#!/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";
}

When above code is executed, it produces the following result −

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