Référencer les entrées d'un tableau ou d'un hash

Le module Perl6::Binding permet de créer une référence vers une entrée d'un tableau ou d'un hash à la façon d'un pointeur.

use Perl6::Binding;

sub main
{
        my $hash;

        $hash -> {parameter} -> {inde} -> {un} = 1;
        $hash -> {parameter} -> {inde} -> {deux} = 2;
        $hash -> {parameter} -> {inde} -> {trois} = 3;

        while(my($key,$value) = each(%{$hash -> {parameter} -> {inde}}))
        {
                print $key . " => " . $value ."\n";
        }

        my %ref := %{$hash -> {parameter} -> {inde}};

        while(my($key,$value) = each(%ref))
        {
                print $key . " => " . $value ."\n";
        }
}

&main();

Dans cet exemple, on voit les deux façons d'atteindre les données, directement ou via la référence.

Il est à noter qu'on ne peut utiliser les références qu'aux sein de sub et non à la racine du programme.