Help language development. Donate to The Perl Foundation
Raku port of Perl's getprotobyname() and associated built-ins
use P5getprotobyname; # exports getprotobyname, getprotobyport, getprotoent, setprotoent, endprotoent say getprotobynumber(0, :scalar); # "ip" my @result_byname = getprotobyname("ip"); my @result_bynumber = getprotobynumber(@result_byname);
This module tries to mimic the behaviour of Perl's
getprotobyname and associated built-ins as closely as possible in the Raku Programing Language.
It exports by default:
endprotoent getprotobyname getprotobynumber getprotoent setprotoent
getprotobyname NAME getprotobynumber NUMBER getprotoent setprotoent STAYOPEN endprotoent 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, $proto ) = getproto* 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.) The "getprotobynumber" function, even though it only takes one argument, has the precedence of a list operator, so beware: getprotobynumber $number eq 'icmp' # WRONG getprotobynumber($number eq 'icmp') # actually means this getprotobynumber($number) eq 'icmp' # better this way
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]
If you like this module, or what I’m doing more generally, committing to a small sponsorship would mean a great deal to me!
Source can be located at: https://github.com/lizmat/P5getprotobyname . Comments and Pull Requests are welcome.
Copyright 2018, 2019, 2020, 2021, 2023 Elizabeth Mattijsen
Re-imagined from Perl 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.