Discussion :

[siaoly]

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

[pospos]

Tie::Array est juste une classe de base pour implementer des tie de array. En fait cette implementation imite juste un array normal...
La tu veux faire un tie sur un fichier dbm, donc regarde plutot du coté de AnyDBM_File.
http://search.cpan.org/~nwclark/perl...AnyDBM_File.pm

Ou si ton fichier DBM existe deja (ou que tu dois pouvoir le lire sur une autre machine) utilise directement un des modules que celui ci utilise (DB_File, SDBM_File, etc...)

mais dans tous les cas (à part pour DB_File ou BerkeleyDB en mode Recno ou Queue) c'est avec une hash que doit se faire le tie et non un array