inter forum

• https://en.wikibooks.org/wiki/Category:Perl_6_Programming
• http://habrahabr.ru/search/?target_type=posts&q=[perl6]&order_by=date

perl6 install (for linux)

git clone https://github.com/tadzik/rakudobrew ~/.rakudobrew
echo 'export PATH=~/.rakudobrew/bin:$PATH' >> ~/.bashrc
source ~/.bashrc

rakudobrew build moar
rakudobrew build-panda

panda install Task::Star

#!/usr/bin/perl

use v6;

my @squares = <1 2 3 4 5 6 7 8 9 10>;
print "\@squares: ";
for @squares {
    print $_ ~ " ";
}

my @a = (1, 2, 3);
# или
my @a = ^4; # Range
# или
my @a = 1 ... 3; # Lazy list
# или
my @a = 1 .. 3; # Range

my @squares2 = 1..10;
say "\n\@squares2[9] = " ~ @squares2[9];

my @squares3 = 1..*;
say "\@squares3[999] = " ~ @squares3[999];

my @squares4 = (1..10).map(-> $x { $x * $x });
say "\@squares4 = " ~ @squares4.join(',');

my @squares5 = (1..*).map(-> $x { $x * $x });
say "\@squares5[9] = " ~ @squares5[9];

1..3 Z+ 4..6; # (5, 7, 9)

# Since `Z` is list-associative (see the list above),
#  you can use it on more than one list
(True, False) Z|| (False, False) Z|| (False, False); # (True, False)

# And, as it turns out, you can also use the reduce meta-operator with it:
[Z||] (True, False), (False, False), (False, False); # (True, False)

my @urls = <
        cpan.org
        kosciol-spaghetti.pl
        perlcabal.org
        duckduckgo.com
        perl6.org
>;
my $count = @urls.elems;

my $folder = $?FILE.IO.absolute;
say "Folder $folder is exists: ", $folder.IO.d;

$folder = __DIR__;
echo "Folder $folder is exists: ", is_dir($folder);

# Associative array
my %drinks =
    France    => 'Wine',
    Bavaria   => 'Beer',
    USA        => 'Coke',
    Moldova  => 'Кагор';

for %drinks.kv -> $key, $val
{
    say "$key: $val";
}

# France: Wine
# Moldova: Кагор
# USA: Coke
# Bavaria: Beer

$foo.log( $obj.nukanate( $foo.grep(*.bar).map(*.ber) ) );

$foo.log: $obj.nukanate: $foo.grep(*.bar).map: *.ber;

my @args = <-a -e -b>;
my $verbose-selected = any(@args) eq '-v' | '-V';
if $verbose-selected.not {
    say "Verbose option not present in arguments";
}

args = ('-a', '-e', '-b')
verb_selected = (v in ('-v', '-V') for v in args)
if True not in verb_selected:
    print('Verbose option detected in arguments.')

my @a = 1..Inf;
for @a[^5] -> Int $i { say $i; }

echo array_sum([1,2,3,4,5,6,7,8,9]);

print(sum([1,2,3,4,5,6,7,8,9]));

say [+] (1,2,3,4,5,6,7,8,9);

say sum (1,2,3,4,5,6,7,8,9);

my @array = 1..^5;
@array>>.say; # 1 ␤ 2 ␤ 3 ␤  4 ␤

say (1, 2, 3) »*» 2;          # OUTPUT: «(2 4 6)␤» 
say (1, 2, 3, 4) »~» <a b>;   # OUTPUT: «(1a 2b 3a 4b)␤» 
say (1, 2, 3) »+« (4, 5, 6);  # OUTPUT: «(5 7 9)␤» 

my @a = 1, 2, 3;
@a»++; # 2, 3, 4

# Ищем 2 в массиве справа, если есть - вернётся True
say 2 (elem) (1,2,3,4,5);

# То же самое, но массив слева, а 2 справа, если есть - вернётся True
say (1,2,3,4,5,6) (cont) 2;

class BetterInt is Int {
    method even { self %% 2 }
}

my BetterInt $x = BetterInt.new(42);
say $x.even();

my BetterInt $x .= new: 42;
say $x.even;

my $x = 42 but role { method even { self %% 2 } };
say $x.even;

sub test-doesn't-hang { ... }
my $ความสงบ = 42;
my \Δ = 72; say 72 - Δ;

    my enum Day ['Sun','Mon','Tue','Wed','Thu','Fri','Sat'];
    subset Weekday of Day where 'Mon' .. 'Fri'; # considered static
    subset Today of Day where *.today;

<?php

class MyFile
{
	public $path = '';

	public function __construct($file)
	{
        if (!file_exists($file)) {
			throw new InvalidArgumentException('File ' . $file . ' not exists');
		}

		$this->path = $file;
	}

	public function __toString()
	{
		return $this->path;
	}
}

function file_size(MyFile $file)
{
    return filesize($file);
}

$file = new MyFile('C:\Users\inter\Desktop\book.pdf');

echo "File: $file\nSize: " . file_size($file);

#!/usr/bin/env perl6

use v6;

subset MyFile of Str where { .IO.f or die "File $_ not exists"; }

sub file-size(MyFile $file)
{
    return $file.IO.s;
}

my $file = 'C:\Users\inter\Desktop\book.pdf';

say "File: $file\nSize: " ~ file-size($file);

sub infix:< ?= > ($left is rw, $right) { $left = $right if defined $right }
my $var;
my $new ?= $var; # Ни одна операция не происходит
$var = 24;
$new ?= $var; # $new получает значение 24

sub infix:< x >($left, $right) { $left * $right }
say 13 x 3; #> 39 # Умножаем значения

sub infix:<¯\_(ツ)_/¯>($left, $right) { $left <=> $right }
10 ¯\_(ツ)_/¯ 5; #> More
5 ¯\_(ツ)_/¯ 5; #> Same

sub circumfix:<⟅ ⟆> ( *@array ) {
        for @array.keys -> $i {
            @array[$i] = @array[$i].flip;
    }
    @array;
}
say ⟅'cat', 'dog', 'bird'⟆; #> [tac god drib]

my @str = 0..9 X~ '';
# Array @str = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9"]

my @str = '0'..'9';
# Array @str = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9"]

my @str = '0'..'10';
# Array @str = ["0", "1"]

my %hash = @keys Z=> @values;

say 'abcdefghijk'.comb(4).join('-');

s, a, step = ('abcdefghijk', [], 4)
for i in range(0, len(s), step): a.append(s[i:i+step])
print('-'.join(a))

my @prefixes = 'A'..'E';
my @suffixes = 'a'..'e';
my @roots = 1, 2;

одно из самых красивых решений

say @roots.map: |(@prefixes >>~>> * <<~<< @postfixes);
# (A1a B1b C1c D1d E1e A2a B2b C2c D2d E2e)

другие решения

@roots.map: {|((@prefixes X~ $_) Z~ @suffixes)}
# (A1a B1b C1c D1d E1e A2a B2b C2c D2d E2e)

say @roots.map({ (@prefixes X~ $_) Z~ @suffixes }).flat;
# (A1a B1b C1c D1d E1e A2a B2b C2c D2d E2e)

w = 'ТОП 7 ВСРАТЫХ БЕЗДАРЯМИ КИНОВСЕЛЕННЫХ'
print(w[0].upper() + w[1:].lower())
# Топ 7 всратых бездарями киновселенных

say 'ТОП 7 ВСРАТЫХ БЕЗДАРЯМИ КИНОВСЕЛЕННЫХ'.tclc;
# Топ 7 всратых бездарями киновселенных