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

my %export;
module P5built-ins:ver<0.0.24>:auth<zef:lizmat> {
    use P5-X:ver<0.0.9>:auth<zef:lizmat>;
    use P5__FILE__:ver<0.0.6>:auth<zef:lizmat>;
    use P5caller:ver<0.0.12>:auth<zef:lizmat>;
    use P5chdir:ver<0.0.9>:auth<zef:lizmat>;
    use P5chomp:ver<0.0.9>:auth<zef:lizmat>;
    use P5chr:ver<0.0.8>:auth<zef:lizmat>;
    use P5defined:ver<0.0.5>:auth<zef:lizmat>;
    use P5each:ver<0.0.8>:auth<zef:lizmat>;
    use P5fc:ver<0.0.8>:auth<zef:lizmat>;
    use P5fileno:ver<0.0.6>:auth<zef:lizmat>;
    use P5getgrnam:ver<0.0.9>:auth<zef:lizmat>;
    use P5getnetbyname:ver<0.0.7>:auth<zef:lizmat>;
    use P5getpriority:ver<0.0.8>:auth<zef:lizmat>;
    use P5getprotobyname:ver<0.0.6>:auth<zef:lizmat>;
    use P5getpwnam:ver<0.0.10>:auth<zef:lizmat>;
    use P5getservbyname:ver<0.0.7>:auth<zef:lizmat>;
    use P5hex:ver<0.0.8>:auth<zef:lizmat>;
    use P5index:ver<0.0.7>:auth<zef:lizmat>;
    use P5lc:ver<0.0.9>:auth<zef:lizmat>;
    use P5lcfirst:ver<0.0.10>:auth<zef:lizmat>;
    use P5length:ver<0.0.7>:auth<zef:lizmat>;
    use P5localtime:ver<0.0.9>:auth<zef:lizmat>;
    use P5math:ver<0.0.5>:auth<zef:lizmat>;
    use P5opendir:ver<0.0.7>:auth<zef:lizmat>;
    use P5pack:ver<0.0.13>:auth<zef:lizmat>;
    use P5print:ver<0.0.6>:auth<zef:lizmat>;
    use P5push:ver<0.0.7>:auth<zef:lizmat>;
    use P5quotemeta:ver<0.0.6>:auth<zef:lizmat>;
    use P5readlink:ver<0.0.9>:auth<zef:lizmat>;
    use P5ref:ver<0.0.7>:auth<zef:lizmat>;
    use P5reset:ver<0.0.6>:auth<zef:lizmat>;
    use P5reverse:ver<0.0.8>:auth<zef:lizmat>;
    use P5seek:ver<0.0.5>:auth<zef:lizmat>;
    use P5shift:ver<0.0.7>:auth<zef:lizmat>;
    use P5sleep:ver<0.0.10>:auth<zef:lizmat>;
    use P5study:ver<0.0.6>:auth<zef:lizmat>;
    use P5substr:ver<0.0.7>:auth<zef:lizmat>;
    use P5tie:ver<0.0.14>:auth<zef:lizmat>;
    use P5times:ver<0.0.10>:auth<zef:lizmat>;

    # there must be a better way to do this, but this will work for now
    %export = MY::.keys.grep( *.starts-with('&') ).map: { $_ => ::($_) };
}

multi sub EXPORT() { %export }
multi sub EXPORT(*@args) {
    my $imports := Map.new( |(%export{ @args.map: '&' ~ * }:p) );
    if $imports != @args {
        die "P5built-ins doesn't know how to export: "
          ~ @args.grep( { !$imports{$_} } ).join(', ')
    }
    $imports
}



use P5built-ins;   # import all P5 built-in functions supported


use P5built-ins <tie untie>;  # only import specific ones


This module provides an easy way to import a growing number of built-in
functions of Perl in Raku  Currently supported at:


abs caller chdir chomp chop chr closedir cos crypt defined each endgrent
endnetent endprotoent endpwent endservent exp fc fileno getgrent getgrgid
getgrnam getlogin getnetbyaddr getnetbyname getnetent getpgrp getppid
getpriority getprotobyname getprotobynumber getprotoent getpwent getpwnam
getpwuid getservbyname getservbyport getservent gmtime hex index int lc
lcfirst length localtime log oct opendir ord pack pop print printf push
quotemeta rand readdir readlink ref reset reverse rewinddir rindex say
seek seekdir setgrent setnetent setpriority setprotoent setpwent setservent
shift sin sleep sqrt study substr telldir tie tied times uc ucfirst undef
unpack unshift untie


The following file test operators are also available:


__FILE__ __LINE__ __PACKAGE__ __SUB__ SEEK_CUR SEEK_END SEEK_SET
STDERR STDIN STDOUT


Please look at the porting caveats of the underlying modules that actually
provide the functionality:


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


P5built-ins

use v6.d;
unit module P5-X:ver<0.0.9>:auth<zef:lizmat>;

my role Subject-X { has $.subject }

my enum Index ( <r w x e d f l s z> );
my constant @methods = Index.^enum_value_list.map( { IO::Path.can("$_").head } );
 
my sub io($io, $index) {
    my $result := @methods[$index]($io);
    $result ~~ Failure
      ?? Nil
      !! ($result ?? +$result !! "") but Subject-X($io)
}

sub chain($s, $i) { $s ~~ Int:D ?? $s && io($s.subject, $i) !! $s }

proto sub prefix:<-r>(|) is export {*}
multi sub prefix:<-r>()                { -r CALLERS::<$_> }
multi sub prefix:<-r>(IO::Handle:D $h) { io($h,r)        }
multi sub prefix:<-r>(IO() $io)        { io($io,r)        }
multi sub prefix:<-r>(Subject-X:D $s)  { chain($s,r)      }

proto sub prefix:<-w>(|) is export {*}
multi sub prefix:<-w>()                { -w CALLERS::<$_> }
multi sub prefix:<-w>(IO::Handle:D $h) { io($h,w)        }
multi sub prefix:<-w>(IO() $io)        { io($io,w)        }
multi sub prefix:<-w>(Subject-X:D $s)  { chain($s,w)      }

proto sub prefix:<-x>(|) is export {*}
multi sub prefix:<-x>()                { -x CALLERS::<$_> }
multi sub prefix:<-x>(IO::Handle:D $h) { io($h,x)        }
multi sub prefix:<-x>(IO() $io)        { io($io,x)        }
multi sub prefix:<-x>(Subject-X:D $s)  { chain($s,x)      }

proto sub prefix:<-e>(|) is export {*}
multi sub prefix:<-e>()                { -e CALLERS::<$_> }
multi sub prefix:<-e>(IO::Handle:D $h) { io($h,e)        }
multi sub prefix:<-e>(IO() $io)        { io($io,e)        }
multi sub prefix:<-e>(Subject-X:D $s)  { chain($s,e)      }

proto sub prefix:<-d>(|) is export {*}
multi sub prefix:<-d>()                { -d CALLERS::<$_> }
multi sub prefix:<-d>(IO::Handle:D $h) { io($h,d)        }
multi sub prefix:<-d>(IO() $io)        { io($io,d)        }
multi sub prefix:<-d>(Subject-X:D $s)  { chain($s,d)      }

proto sub prefix:<-f>(|) is export {*}
multi sub prefix:<-f>()                { -f CALLERS::<$_> }
multi sub prefix:<-f>(IO::Handle:D $h) { io($h,f)        }
multi sub prefix:<-f>(IO() $io)        { io($io,f)        }
multi sub prefix:<-f>(Subject-X:D $s)  { chain($s,f)      }

proto sub prefix:<-l>(|) is export {*}
multi sub prefix:<-l>()                { -l CALLERS::<$_> }
multi sub prefix:<-l>(IO::Handle:D $h) { io($h,l)        }
multi sub prefix:<-l>(IO() $io)        { io($io,l)        }
multi sub prefix:<-l>(Subject-X:D $s)  { chain($s,l)      }

proto sub prefix:<-s>(|) is export {*}
multi sub prefix:<-s>()                { -s CALLERS::<$_> }
multi sub prefix:<-s>(IO::Handle:D $h) { io($h,s)        }
multi sub prefix:<-s>(IO() $io)        { io($io,s)        }
multi sub prefix:<-s>(Subject-X:D $s)  { chain($s,s)      }

proto sub prefix:<-z>(|) is export {*}
multi sub prefix:<-z>()                { -z CALLERS::<$_> }
multi sub prefix:<-z>(IO::Handle:D $h) { io($h,z)        }
multi sub prefix:<-z>(IO() $io)        { io($io,z)        }
multi sub prefix:<-z>(Subject-X:D $s)  { chain($s,z)      }



use P5-X; # exports -r -w -x -e -d -f -l -s -z


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


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:


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


P5-X

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

P5-X v0.0.9

Authors

License

Dependencies

Test Dependencies

Provides

Documentation