Help language development. Donate to The Perl Foundation
Raku port of Perl 5's Net::netent module
use Net::netent;
my $n = getnetbyname("loopback") or die "bad net";
printf "%s is %08X\n", $n.name, $n.net;
use Net::netent qw(:FIELDS);
getnetbyname("loopback") or die "bad net";
printf "%s is %08X\n", $n_name, $n_net;
This module tries to mimic the behaviour of Perl's Net::netent module as closely as possible in the Raku Programming Language.
This module's exports getnetbyname, getnetbyaddrd, and getnetent functions that return Netr::netent objects. This object has methods that return the similarly named structure field name from the C's netent structure from netdb.h, stripped of their leading "n_" parts, namely name, aliases, addrtype and net.
You may also import all the structure fields directly into your namespace as regular variables using the :FIELDS import tag. Access these fields as variables named with a preceding n_ in front their method names. Thus, $net_obj.name corresponds to $n_name if you import the fields.
The getnet function is a simple front-end that forwards a numeric argument to getnetbyaddr and the rest to getnetbyname.
This module depends on the availability of POSIX semantics. This is generally not available on Windows, so this module will probably not work on Windows.
Elizabeth Mattijsen [email protected]
Source can be located at: https://github.com/lizmat/Net-netent . Comments and Pull Requests are welcome.
Copyright 2018,2020 Elizabeth Mattijsen
Re-imagined from Perl 5 as part of the CPAN Butterfly Plan.
This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.