Ещё пример.
Вызов скрипта с одинаковыми аргументами в perl 5 и raku. Обратите внимание - в raku объём кода меньше и его читабельность лучше.
Perl 5:
#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
@ARGV == 2 or die "Please supply two parameters.";
my %hash;
my ($name, $content) = @ARGV;
$hash{$name} = $content;
say "The item is called $name and its value is $hash{$name}";
This program displays the name of the item and its value:
$ perl sym_ref_fixed.pl foo bar
Raku:
use v6;
sub MAIN (Str $name, Str $value) {
my %hash = $name => $value;
say "The item is called $name and its value is %hash{$name}";
}
This program displays the name of the item and its value:
$ perl6 sym_ref.p6 foo bar