Help language development. Donate to The Perl Foundation
P5getnetbyname - Implement Perl 5's getnetbyname() and associated built-ins
use P5getnetbyname; # exports getnetbyname, getnetbyaddr, getnetent, setnetent, endnetent say getnetbyaddr(Scalar, 127, 2); # something akin to loopback my @result_byname = getnetbyname("loopback"); my @result_byaddr = getnetbyaddr(|@result_byname[4,3]);
This module tries to mimic the behaviour of the
getnetbyname and associated functions of Perl 5 as closely as possible. It exports by default:
endnetent getnetbyname getnetbyaddr getnetent setnetent
getnetbyname NAME getnetbyaddr ADDR,ADDRTYPE getnetent setnetent STAYOPEN endnetent These routines are the same as their counterparts in the system C library. In list context, the return values from the various get routines are as follows: # 0 1 2 3 4 ( $name, $aliases, $addrtype, $net ) = getnet* In scalar context, you get the name, unless the function was a lookup by name, in which case you get the other thing, whatever it is. (If the entry doesn't exist you get the undefined value.)
Elizabeth Mattijsen [email protected]
Source can be located at: https://github.com/lizmat/P5getnetbyname . Comments and Pull Requests are welcome.
Copyright 2018-2019 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.