Net::netent

Net::netent

• NAME
• SYNOPSIS
• DESCRIPTION
• EXAMPLES
• NOTE
• AUTHOR

NAME

Net::netent - by-name interface to Perl's built-in getnet*() functions

SYNOPSIS

use Net::netent qw(:FIELDS);
getnetbyname("loopback") 		or die "bad net";
printf "%s is %08X\n", $n_name, $n_net;

use Net::netent;

$n = getnetbyname("loopback") 		or die "bad net";
{ # there's gotta be a better way, eh?
    @bytes = unpack("C4", pack("N", $n->net));
    shift @bytes while @bytes && $bytes[0] == 0;
}
printf "%s is %08X [%d.%d.%d.%d]\n", $n->name, $n->net, @bytes;

DESCRIPTION

This module's default exports override the core getnetbyname() and getnetbyaddr() functi