Image

head

code

root

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

README

use v6.*;

our $s_name    is export(:FIELDS);
our @s_aliases is export(:FIELDS);
our $s_port    is export(:FIELDS);
our $s_proto   is export(:FIELDS);

class Net::servent:ver<0.0.3>:auth<zef:lizmat> {
    has Str $.name;
    has     @.aliases;
    has Int $.port;
    has Str $.proto;
}

sub populate(@fields) {
    if @fields {
        Net::servent.new(
          name    => ($s_name    = @fields[0]),
          aliases => (@s_aliases = @fields[1]),
          port    => ($s_port    = @fields[2]),
          proto   => ($s_proto   = @fields[3]),
        )
    }
    else {
          $s_name    = Str;
          @s_aliases = ();
          $s_port    = Int;
          $s_proto   = Int;
          Nil
    }
}

my sub getservbyname(Str() $name, Str() $proto) is export(:DEFAULT:FIELDS) {
    use P5getservbyname:ver<0.0.7>:auth<zef:lizmat>;
    populate(getservbyname($name,$proto))
}

my sub getservbyport(Int:D $port, Str() $proto) is export(:DEFAULT:FIELDS) {
    use P5getservbyname:ver<0.0.7>:auth<zef:lizmat>;
    populate(getservbyport($port,$proto))
}

my sub getservent() is export(:DEFAULT:FIELDS) {
    use P5getservbyname:ver<0.0.7>:auth<zef:lizmat>;
    populate(getservent)
}

my proto sub getserv(|) is export(:DEFAULT:FIELDS) {*}
my multi sub getserv(Int:D $addr) is export(:DEFAULT:FIELDS) {
    getservbyport($addr)
}
my multi sub getserv(Str:D $nam) is export(:DEFAULT:FIELDS) {
    getservbyname($nam)
}

my constant &setservent is export(:DEFAULT:FIELDS) = do {
    use P5getservbyname:ver<0.0.7>:auth<zef:lizmat>;
    &setservent
}
my constant &endservent is export(:DEFAULT:FIELDS) = do {
    use P5getservbyname:ver<0.0.7>:auth<zef:lizmat>;
    &endservent
}



use Net::servent;
$s = getservbyname('ftp') || die "no service";
printf "port for %s is %s, aliases are %s\n",
   $s.name, $s.port, "@_aliases[]";


use Net::servent qw(:FIELDS);
getservbyname('ftp') || die "no service";
print "port for $s_name is $s_port, aliases are @s_aliases[]\n";


This module tries to mimic the behaviour of Perl's C<Net::servent> module
as closely as possible in the Raku Programming Language.


This module's exports C<getservbyname>, C<getservbyportd>, and C<getservent>
functions that return C<Net::servent> objects. This object has methods that
return the similarly named structure field name from the C's servent structure
from servdb.h, stripped of their leading "s_" parts, namely name, aliases,
port and proto.


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 s_ in front their method names. Thus,
$serv_obj.name corresponds to $s_name if you import the fields.


The C<getserv> function is a simple front-end that forwards a numeric argument
to C<getservbyport> and the rest to C<getservbyname>.


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.


Source can be located at: https://github.com/lizmat/serv-servent . Comments and
Pull Requests are welcome.


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.


servent

use v6.*;

our $p_name    is export(:FIELDS);
our @p_aliases is export(:FIELDS);
our $p_proto   is export(:FIELDS);

class Net::protoent:ver<0.0.3>:auth<zef:lizmat> {
    has Str $.name;
    has     @.aliases;
    has Int $.proto;
}

sub populate(@fields) {
    if @fields {
        Net::protoent.new(
          name    => ($p_name    = @fields[0]),
          aliases => (@p_aliases = @fields[1]),
          proto   => ($p_proto   = @fields[2]),
        )
    }
    else {
          $p_name    = Str;
          @p_aliases = ();
          $p_proto   = Int;
          Nil
    }
}

my sub getprotobyname(Str() $name) is export(:DEFAULT:FIELDS) {
    use P5getprotobyname:ver<0.0.6>:auth<zef:lizmat>;
    populate(getprotobyname($name))
}

my sub getprotobynumber(Int:D $proto) is export(:DEFAULT:FIELDS) {
    use P5getprotobyname:ver<0.0.6>:auth<zef:lizmat>;
    populate(getprotobynumber($proto))
}

my sub getprotoent() is export(:DEFAULT:FIELDS) {
    use P5getprotobyname:ver<0.0.6>:auth<zef:lizmat>;
    populate(getprotoent)
}

my proto sub getproto(|) is export(:DEFAULT:FIELDS) {*}
my multi sub getproto(Int:D $proto) is export(:DEFAULT:FIELDS) {
    getprotobynumber($proto)
}
my multi sub getproto(Str:D $nam) is export(:DEFAULT:FIELDS) {
    getprotobyname($nam)
}

my constant &setprotoent is export(:DEFAULT:FIELDS) = do {
    use P5getprotobyname:ver<0.0.6>:auth<zef:lizmat>;
    &setprotoent
}
my constant &endprotoent is export(:DEFAULT:FIELDS) = do {
    use P5getprotobyname:ver<0.0.6>:auth<zef:lizmat>;
    &endprotoent
}



Raku port of Perl's Net::protoent module


use Net::protoent;
my $p = getprotobyname('tcp') || die "no proto";
printf "proto for %s is %d, aliases are %s\n",
   $p.name, $p.proto, "$p.aliases()";


use Net::protoent qw(:FIELDS);
getprotobyname('tcp')         || die "no proto";
print "proto for $p_name is $p_proto, aliases are @p_aliases\n";


This module tries to mimic the behaviour of Perl's C<Net::protoent> module
as closely as possible in the Raku Programming Language.


This module's exports C<getprotobyname>, C<getprotobynumber>, and
C<getprotoent> functions that return C<Netr::protoent> objects. This object
has methods that return the similarly named structure field name from the
C's protoent structure from netdb.h, stripped of their leading "p_" parts,
namely name, aliases, and proto.


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 p_ in front their method names. Thus,
$proto_obj.name corresponds to $p_name if you import the fields.


The C<getproto> function is a simple front-end that forwards a numeric
argument to C<getprotobynumber> and the rest to C<getprotobyname>.


Source can be located at: https://github.com/lizmat/Net-protoent . Comments and
Pull Requests are welcome.


protoent

The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


README

NAME

SYNOPSIS

DESCRIPTION

PORTING CAVEATS

AUTHOR

COPYRIGHT AND LICENSE

Net::protoent v0.0.3

Authors

License

Dependencies

Test Dependencies

Provides

Documentation