J'ai besoin d'un coup de main avec Tie::Array, j'ai lié un tableau comme ceci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
package Array;
use strict;
use Fcntl;
use Tie::Array;
use threads::shared;
 
 
sub new
{
    my $class = shift;
    tie my @q, 'Tie::Array', 'Array.dbm', O_CREAT|O_RDWR or die 'Unable to tie ARRAY';
    share(@q);
    return bless \@q, $class;
}
 [...]
La façon dont je lie le tableau me semble bonne puisque c'est comme avec un hash sauf que perl me demande de définir une fonction TIEARRAY comme cela

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
    sub TIEARRAY {
        my $class = shift;
        my $bound = shift;
        confess "usage: tie(\@ary, 'Bounded_Array', max_subscript)"
            if @_ || $bound =~ /\D/;
        return bless {
            BOUND => $bound,
            ARRAY => [],
        }, $class;
    }
Mais j'arrive pas a comprendre comment je peut bénir mon tableau puis le rebénir dans new() , sans compter que je comprend pas vraiment le code de ladite fonction

merci de votre aide