Besoin d'aide avec TIE::Array
J'ai besoin d'un coup de main avec Tie::Array, j'ai lié un tableau comme ceci
Code:
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:
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 :aie:
merci de votre aide
