php 5 или 7 | perl 6 |
Код: [Выделить] echo 100500, "\n"; | Код: [Выделить] say 100500; |
Array Код: [Выделить] $a = [1, 'two', 35]; | Array Код: [Выделить] my @a = 1, 'two', 35; |
foreach Код: [Выделить] foreach ($a as $key -> $val) { | for Код: [Выделить] for @a.kv -> $key, $val { |
Ассоциативный массив: Код: [Выделить] $man = ['name' => 'Ваня Иванов', 'age' => 20]; | Hash Код: [Выделить] my %man = name => 'Ваня Иванов', age => 20;Вместо %h<key> можно использовать вот так: %h{'key'}, например, если у вас есть пробелы в ключе |
Map, анонимная функция Код: [Выделить] $a = [1, 'two', 3]; | Map, анонимная функция Код: [Выделить] my @a = 1, 'two', 3; |
Поиск в массиве Код: [Выделить] $arr = [1, 2, 3, 4, 5]; | Поиск в массиве Код: [Выделить] my @arr = [1, 2, 3, 4, 5]; |
OOP. Private method: Код: [Выделить] private function clean_data() { | OOP. Private method: Код: [Выделить] method !clean-data { |
Function args: ... Код: [Выделить] function sum(...$numbers) { | Function args: * (slurpy) Код: [Выделить] sub sum-custom(*@numbers) { |
Строки. Поиск символа | Строки. Поиск символа |
Код: [Выделить] $s = 'abcdefgh';А теперь проверим и напишем позицию символа в строке: Код: [Выделить] $s = 'abcdefgh'; | Код: [Выделить] my $s = 'abcdefgh';А теперь проверим и напишем позицию символа в строке: Код: [Выделить] my $s = 'abcdefgh';Конструкция with (https://docs.perl6.org/syntax/with%20orwith%20without) работает как if defined(результат-вашего-кода), результат проверки вносит в свой блок в переменную $_. До и после блока with переменная $_ не изменяется. |