bazzaar

"All called that is run until outer finishes can see that variable, including the inside of inner"

"All code that is run until outer finishes can see that variable, including the code inside of inner"

=======

"observes a directory tree, and you can configure it synchronize flies to another local,"     note #flies# mispelling also

"observes a directory tree, and you can configure it to synchronize files with another local directory,"

bazzaar

> my $s = 'aaa123bbb'
aaa123bbb
> $s ~~ m/ ('a' **3) \d**3 ('b' **3)/
｢aaa123bbb｣
 0 => ｢aaa｣
 1 => ｢bbb｣
> my $regex = / ('a' **2) 'a' \d**3 'b' ('b' **2) /
/ ('a' **2) 'a' \d**3 'b' ('b' **2) /
> $s .= subst($regex, $0 ~ "x999y" ~ $1)
aaax999ybbb

bazzaar

AMD64 system with Opensuse Leap 15.2 OS
bazzaar@linux:~> raku -v
This is Rakudo version 2020.05.1 built on MoarVM version 2020.05
implementing Raku 6.d.
-----------------------------------------
bazzaar@linux:~> zef --verbose install Digest::SHA256::Native
===> Searching for: Digest::SHA256::Native
===> Found: Digest::SHA256::Native:ver<0.03> [via Zef::Repository::LocalCache]
===> Building: Digest::SHA256::Native:ver<0.03>
[Digest::SHA256::Native] Command: /opt/rakudo-pkg/bin/rakudo -e require '/home/bazzaar/.zef/store/Digest-SHA256-Native-0.03.tar.gz/Digest-SHA256-Native-0.03/Build.pm'; ::('Build').new.build('/home/bazzaar/.zef/store/Digest-SHA256-Native-0.03.tar.gz/Digest-SHA256-Native-0.03') ?? exit(0) !! exit(1);

bazzaar

use Cro::HTTP::Client;
use JSON::Fast;
use Pretty::Table;

my $client = Cro::HTTP::Client.new(
    headers => [
        User-agent => 'HTTP::API::MusicBrainz/0.0.1'
    ]);

my $discid = 'M3ATxcfK.GATL5ED0AXxljjcva8-';      # obtained from libdiscid calculation

bazzaar

use Cro::HTTP::Client;
use JSON::Fast;
use LibUUID;
use HTTP::API::MusicBrainz;
use Pretty::Table;

my $client = Cro::HTTP::Client.new(
    headers => [
        User-agent => 'HTTP::API::MusicBrainz/0.0.1'
    ]);

bazzaar

bazzaar@linux:~> perl6 -v
This is Rakudo version 2019.11 built on MoarVM version 2019.11
implementing Perl 6.d.

(Opensuse Leap15.1 packaged install : Rakudo compiler only) 

# --

excerpt from perl6 -V
----------------------

bazzaar

use Inline::Python;

my $py = Inline::Python.new();
$py.run('import matplotlib.pyplot');

class Matplotlib::Plot {
    method cm {
        class {
            # this getattr method, called like so : 'say $plt.cm.getattr($cmap, 'N');'
            method getattr($obj, $name) {

bazzaar

use Slang::Tuxic;
use Text::CSV;
use File::Find;

my $csv_line = Text::CSV.new (eol => "\n");
my $cols = 49;

my @IO-object-list = find(:dir</home/user1/documents/animals>, :type<file>, :name(/armadillos_201<[4..8]>.*\.csv/));

for @IO-object-list -> $IO-object {

bazzaar

# Import the client class.
use Cro::HTTP::Client;

my $client = Cro::HTTP::Client.new(
    headers => [
        User-agent => 'Cro'
    ]);

# Make the request
####

bazzaar

bazzaar@linux:~/rakudo/rakudo-star-2016.11> perl -v
This is perl 5, version 22, subversion 0 (v5.22.0) built for x86_64-linux
(with 1 registered patch, see perl -V for more detail)
============================================

bazzaar@linux:~/rakudo> curl -O http://rakudo.org/downloads/star/rakudo-star-2016.11.tar.gz
bazzaar@linux:~/rakudo> tar -xvzf rakudo-star-2016.11.tar.gz
bazzaar@linux:~/rakudo> cd rakudo-star-2016.11/

bazzaar@linux:~/rakudo/rakudo-star-2016.11> perl Configure.pl --backend=moar --gen-moar