Discussion :

[K-ZimiR]

salut a tous
j'ai un piti problemene avec ma @#!!@ de procedure j'ai 3 param : un scalaire, 1 tbl a 1 dimensions et 1 tbl a 2 dimensions

le probleme c que j'arrive pa a recup mes tbl ds ma procedure : apparemment je recupere que la premiere case ??

j'appelle ma procedure comme ca :

&setCorps($affichage, @tab_entete, @dataCE);

$affichage : scalaire
@tab_entete : tableau a 1 dimension
@dataCE : tableau a 2 dimensions

et je recupere comme ca :

sub setCorps {
(my $nbDblCol,my $ref_entete,my $ref_data) = @_;
et je voudrais avoir la taille d 2 tableaux mais surtout le nombre de colonnes de celui a 2 dimensions

A oui aussi : Question Subsidiaire
si vous savez comment recuperer le nom des champs d'une table en SQL ca m'interesse aussi (si tu es blonde a forte poitrine aussi !!)

merci d'avance

[Spaz]

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
sub setCorps { 
my $nbDblCol = shift;
my @entete = shift;
my $ref_entete = @entete;
my @data = shift;
my $ref_data = @data;
}

++

[K-ZimiR]

Desolé ca marche pas
ce que j'aimerai bien comprendre c comment fonctionne la recuperation de parametres dans les procedures notamment pour les tableaux :
Est ce qu'on peut recuperer le tableau en entier ou c seulement un pointeur sur le tableau ?

[schnecke]

Il faut lui passer des références aux tableaux.
Parce que si tu lui passes (@truc, $machin, @toto), il aligne tout, comme s'il n'y avait qu'un seul tableau...
J ai un peu de mal à expliquer, mais en gros il faut lui passer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

&setCorps(\$affichage, \@tab_entete, \@dataCE);

[K-ZimiR]

ok et je recupere les infos comment dans ma procedure ?

[le troll Hebus]

tu récupères du coup une référence:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
my $ref_tab1 = shift @_;
my $ref_tab2 = shift @_;
...
 
my @tab1 = @$ref_tab1;  # déréférencement
my @tab2 = @$ref_tab2;

[schnecke]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sub titi{
my ($ref1, $ref2, $ref3) = @_;
#apres tu déréférences tes variables comme ca:
my $deref1 = ${$ref1};
my @deref2 = @{$ref2};
#etc. bref les mécanismes de référencement et déréférencement de variables
}

[K-ZimiR]

nickel : ca marche nickel
merci a tous vous etes terrible