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.*;

unit module P5hex:ver<0.0.8>:auth<zef:lizmat>;

proto sub hex(|) is export {*}
multi sub hex() { hex CALLERS::<$_> }
multi sub hex(Str() $s) {
    $s ~~ / ^ <[a..f A..F 0..9]>* $ /
      ?? ($s ?? $s.parse-base(16) !! 0)
      !! +$s  # let numerification handle parse errors
}

proto sub oct(|) is export {*}
multi sub oct() { oct CALLERS::<$_> }
multi sub oct(Str() $s is copy) {
    $s .= trim-leading;
    if $s ~~ / \D / {                            # something non-numeric there
        with $s ~~ / ^0 <[xob]> \d+ $/ {           # standard 0x string
            +$_
        }
        else {                                     # not a standard 0x string
            with $s ~~ /^ \d+ / {                    # numeric with trailing
                .Str.parse-base(8)
            }
            else {                                   # garbage
                +$_                                   # throw numification error
            }
        }
    }
    else {                                       # just digits
        $s.parse-base(8)
    }
}



Raku port of Perl's hex() / oct() built-ins


print hex '0xAf'; # prints '175'
print hex 'aF';   # same


This module tries to mimic the behaviour of Perl's C<hex> and C<oct> built-ins
as closely as possible in the Raku Programming Language.


hex EXPR
hex     Interprets EXPR as a hex string and returns the corresponding
        value. (To convert strings that might start with either 0, "0x",
        or "0b", see "oct".) If EXPR is omitted, uses $_.


Hex strings may only represent integers. Strings that would cause
integer overflow trigger a warning. Leading whitespace is not
stripped, unlike oct(). To present something as hex, look into
"printf", "sprintf", and "unpack".


oct EXPR
oct     Interprets EXPR as an octal string and returns the corresponding
        value. (If EXPR happens to start off with "0x", interprets it as a
        hex string. If EXPR starts off with "0b", it is interpreted as a
        binary string. Leading whitespace is ignored in all three cases.)
        The following will handle decimal, binary, octal, and hex in
        standard Perl notation:


If EXPR is omitted, uses $_. To go the other way (produce a number
in octal), use sprintf() or printf():


$dec_perms = (stat("filename"))[2] & 07777;
$oct_perm_str = sprintf "%o", $perms;


The oct() function is commonly used when a string such as 644
needs to be converted into a file mode, for example. Although Perl
automatically converts strings into numbers as needed, this
automatic conversion assumes base 10.


Leading white space is ignored without warning, as too are any
trailing non-digits, such as a decimal point ("oct" only handles
non-negative integers, not negative integers or floating point).


In future language versions of Raku, it will become impossible to access the
C<$_> variable of the caller's scope, because it will not have been marked as
a dynamic variable.  So please consider changing:


or, using the subroutine as a method syntax, with the prefix C<.> shortcut
to use that scope's C<$_> as the invocant:


Source can be located at: https://github.com/lizmat/P5hex . 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.


P5hex

use v6.*;

unit module P5getservbyname:ver<0.0.7>:auth<zef:lizmat>;

use NativeCall;

sub be2le16(uint32 $value) { ($value +> 8) +| (($value +& 0xff) +< 8) }

my class ServStruct is repr<CStruct> {
    has Str         $.s_name;
    has CArray[Str] $.s_aliases;
    has uint32      $.s_port;
    has Str         $.s_proto;

    sub HLLizeCArrayStr(\list) {
        my @members;
        with list -> $members {
            for ^Inf {
                with $members[$_] -> $member {
                    @members.push($member)
                }
                else {
                    last
                }
            }
        }
        @members
    }

    multi method scalar(ServStruct:U: --> Nil) { }
    multi method scalar(ServStruct:D: :$port) {
        $port ?? be2le16($.s_port) !! $.s_name
    }

    multi method list(ServStruct:U:) { () }
    multi method list(ServStruct:D:) {
        ($.s_name,HLLizeCArrayStr($.s_aliases).join(" "),
          be2le16($.s_port),$.s_proto)
    }
}

# actual NativeCall interfaces
sub _getservbyname(Str, Str --> ServStruct)
  is native is symbol<getservbyname> {*}
sub _getservbyport(int32, Str --> ServStruct)
  is native is symbol<getservbyport> {*}
sub _getservent(--> ServStruct) is native is symbol<getservent> {*}
sub _setservent(int32) is native is symbol<setservent> {*}
sub _endservent() is native is symbol<endservent> {*}

# actual exported subs
my proto sub getservbyname(|) is export {*}
multi sub getservbyname(Scalar:U, Str() $name, Str() $proto) {
    _getservbyname($name,$proto).scalar(:port)
}
multi sub getservbyname(Str() $name, Str() $proto, :$scalar!)
  is DEPRECATED('Scalar as first positional')
{
    _getservbyname($name,$proto).scalar(:port)
}
multi sub getservbyname(Str() $name, Str() $proto) {
    _getservbyname($name,$proto).list
}

my proto sub getservbyport(|) is export {*}
multi sub getservbyport(Scalar:U, Int:D $port, Str() $proto) {
    my int32 $nport = be2le16($port);
    _getservbyport($nport,$proto).scalar
}
multi sub getservbyport(Int:D $port, Str() $proto, :$scalar!)
  is DEPRECATED('Scalar as first positional')
{
    my int32 $nport = be2le16($port);
    _getservbyport($nport,$proto).scalar
}
multi sub getservbyport(Int:D $port, Str() $proto) {
    my int32 $nport = be2le16($port);
    _getservbyport($nport,$proto).list
}

my proto sub getservent(|) is export {*}
multi sub getservent(Scalar:U) { _getservent.scalar }
multi sub getservent(:$scalar!)
  is DEPRECATED('Scalar as first positional')
{
    _getservent.scalar
}
multi sub getservent() { _getservent.list }

my sub setservent($stayopen) is export {
    my int32 $nstayopen = ?$stayopen;
    _setservent($nstayopen);
    1;  # this is apparently what Perl does, although not documented
}

my sub endservent() is export {
    _endservent;
    1;  # this is apparently what Perl does, although not documented
}



Raku port of Perl's getservbyname() and associated built-ins


use P5getservbyname;
# exports getservbyname, getservbyport, getservent, setservent, endservent


say getservbyport(Scalar, 25, "tcp");   # "smtp"


my @result_byname = getservbyname("smtp");


my @result_byport = getservbyport(|@result_byname[3,4]);


This module tries to mimic the behaviour of Perl's C<getservbyname> and associated
built-ins as closely as possible in the Raku Programming Language.


endservent getservbyname getservbyport getservent setservent


getservbyname NAME,PROTO
getservbyport PORT,PROTO
getservent
setservent STAYOPEN
endservent
        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,  $port,      $proto    ) = getserv*


(If the entry doesn't exist you get an empty list.)


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.)


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/P5getservbyname . Comments
and Pull Requests are welcome.


P5getservbyname

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

ORIGINAL PERL 5 DOCUMENTATION

PORTING CAVEATS

AUTHOR

COPYRIGHT AND LICENSE

P5getservbyname v0.0.7

Authors

License

Dependencies

Test Dependencies

Provides

Documentation