diff options
Diffstat (limited to 'upstream/mageia-cauldron/man3pm/Net::servent.3pm')
| -rw-r--r-- | upstream/mageia-cauldron/man3pm/Net::servent.3pm | 125 |
1 files changed, 125 insertions, 0 deletions
diff --git a/upstream/mageia-cauldron/man3pm/Net::servent.3pm b/upstream/mageia-cauldron/man3pm/Net::servent.3pm new file mode 100644 index 00000000..3dacef73 --- /dev/null +++ b/upstream/mageia-cauldron/man3pm/Net::servent.3pm @@ -0,0 +1,125 @@ +.\" -*- mode: troff; coding: utf-8 -*- +.\" Automatically generated by Pod::Man 5.01 (Pod::Simple 3.43) +.\" +.\" Standard preamble: +.\" ======================================================================== +.de Sp \" Vertical space (when we can't use .PP) +.if t .sp .5v +.if n .sp +.. +.de Vb \" Begin verbatim text +.ft CW +.nf +.ne \\$1 +.. +.de Ve \" End verbatim text +.ft R +.fi +.. +.\" \*(C` and \*(C' are quotes in nroff, nothing in troff, for use with C<>. +.ie n \{\ +. ds C` "" +. ds C' "" +'br\} +.el\{\ +. ds C` +. ds C' +'br\} +.\" +.\" Escape single quotes in literal strings from groff's Unicode transform. +.ie \n(.g .ds Aq \(aq +.el .ds Aq ' +.\" +.\" If the F register is >0, we'll generate index entries on stderr for +.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index +.\" entries marked with X<> in POD. Of course, you'll have to process the +.\" output yourself in some meaningful fashion. +.\" +.\" Avoid warning from groff about undefined register 'F'. +.de IX +.. +.nr rF 0 +.if \n(.g .if rF .nr rF 1 +.if (\n(rF:(\n(.g==0)) \{\ +. if \nF \{\ +. de IX +. tm Index:\\$1\t\\n%\t"\\$2" +.. +. if !\nF==2 \{\ +. nr % 0 +. nr F 2 +. \} +. \} +.\} +.rr rF +.\" ======================================================================== +.\" +.IX Title "Net::servent 3pm" +.TH Net::servent 3pm 2023-11-28 "perl v5.38.2" "Perl Programmers Reference Guide" +.\" For nroff, turn off justification. Always turn off hyphenation; it makes +.\" way too many mistakes in technical documents. +.if n .ad l +.nh +.SH NAME +Net::servent \- by\-name interface to Perl's built\-in getserv*() functions +.SH SYNOPSIS +.IX Header "SYNOPSIS" +.Vb 4 +\& use Net::servent; +\& my $s = getservbyname(shift || \*(Aqftp\*(Aq) || die "no service"; +\& printf "port for %s is %s, aliases are %s\en", +\& $s\->name, $s\->port, "@{$s\->aliases}"; +\& +\& use Net::servent qw(:FIELDS); +\& getservbyname(shift || \*(Aqftp\*(Aq) || die "no service"; +\& print "port for $s_name is $s_port, aliases are @s_aliases\en"; +.Ve +.SH DESCRIPTION +.IX Header "DESCRIPTION" +This module's default exports override the core \fBgetservent()\fR, +\&\fBgetservbyname()\fR, and +\&\fBgetnetbyport()\fR functions, replacing them with versions that return +"Net::servent" objects. They take default second arguments of "tcp". This object has methods that return the similarly +named structure field name from the C's servent structure from \fInetdb.h\fR; +namely name, aliases, port, and proto. The aliases +method returns an array reference, the rest scalars. +.PP +You may also import all the structure fields directly into your namespace +as regular variables using the :FIELDS import tag. (Note that this still +overrides your core functions.) Access these fields as variables named +with a preceding \f(CW\*(C`s_\*(C'\fR. Thus, \f(CW\*(C`$serv_obj\->name()\*(C'\fR corresponds to +\&\f(CW$s_name\fR if you import the fields. Array references are available as +regular array variables, so for example \f(CW\*(C`@{ $serv_obj\->aliases()}\*(C'\fR +would be simply \f(CW@s_aliases\fR. +.PP +The \fBgetserv()\fR function is a simple front-end that forwards a numeric +argument to \fBgetservbyport()\fR, and the rest to \fBgetservbyname()\fR. +.PP +To access this functionality without the core overrides, +pass the \f(CW\*(C`use\*(C'\fR an empty import list, and then access +function functions with their full qualified names. +On the other hand, the built-ins are still available +via the \f(CW\*(C`CORE::\*(C'\fR pseudo-package. +.SH EXAMPLES +.IX Header "EXAMPLES" +.Vb 1 +\& use Net::servent qw(:FIELDS); +\& +\& while (@ARGV) { +\& my ($service, $proto) = ((split m!/!, shift), \*(Aqtcp\*(Aq); +\& my $valet = getserv($service, $proto); +\& unless ($valet) { +\& warn "$0: No service: $service/$proto\en" +\& next; +\& } +\& printf "service $service/$proto is port %d\en", $valet\->port; +\& print "alias are @s_aliases\en" if @s_aliases; +\& } +.Ve +.SH NOTE +.IX Header "NOTE" +While this class is currently implemented using the Class::Struct +module to build a struct-like class, you shouldn't rely upon this. +.SH AUTHOR +.IX Header "AUTHOR" +Tom Christiansen |