Perl

[Perl] Utiliser un tableau d'une subroutine

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Utiliser un tableau d'une subroutine

urd-sama

waste of space

bonjour
voilà mon petit problème.
en résumé, je remplis un tableau @table dans une subroutine.
en voulais afficher les éléments de ce tableau dans mon prog principal, il ne m'affiche que le dernier.
j'ai essayé de mettre un return @table à la fin de ma subroutine, mais rien à faire.
doit-on comme d'autres langages déclarer ce tableau en global? je n'ai rien trouvé dans mes différents livres là-dessus.
si qqun pouvait m'éclairer car je patauge.
merci d'avance

---------------
.: Clône de Drasche .:. Ebichuleys .:. Avec l'Aloe Vera je fais de beaux cacas [:dawa] .: www.oserselancer.com :.

Publicité

pospos

pourtant ca doit marcher:

Code :

my @tab = genere_tableau();
print join("\n", @tab);
sub genere_tableau {
my @table = (10,50,60,80,90);
return @table;
}

ou par reference (plus efficace au niveau memoire):

Code :

my $tab_ref = genere_tableau();
print join("\n", @{$tab_ref});
sub genere_tableau {
my @table = (10,50,60,80,90);
return \@table;
}

urd-sama

waste of space

je me suis penchée sur le problème hier, et en fait c'était un peu plus compliqué que ca.
j'utilise la fonction find, de cette facon (dans le main):
find(\&tab, $path1);
dans la fonction tab, je mets des valeurs dans le dit tableau, mais en le retournant ca ne fonctionnera pas.
J'ai donc déclaré et utilisé le dit tableau en global, meme si ce n'est peut-etre pas la solution la plus propre [:spamafote]
merci quand meme pour ton message :jap:

---------------
.: Clône de Drasche .:. Ebichuleys .:. Avec l'Aloe Vera je fais de beaux cacas [:dawa] .: www.oserselancer.com :.

pospos

c'est le find de File::Find?

en premier argument tu dois effectivement passer une ref à une fonction qui recupere le nom du fichier. Et c'est ce nom que tu veux ranger dans un tabkleau pour le recuperer apres c'est ca?
Effectivement dans ce cas tu peuxfaire un truc du genre:

Code :

my @tableau;
find(\&tab, $path1);
print "Fichier:\n", join("\n", @tableau);
sub tab {
push @tableau, $_; # ou $File::Find::name pour avoir le nom complet
}

mais tu peux aussi faire ca:

Code :

my @tableau;
find(sub{&tab(\@tableau)}, $path1);
print "Fichier:\n", join("\n", @tableau);
sub tab {
my $tab_ref = shift;
push @{$tab_ref} , $_;
}

Message édité par pospos le 11-06-2003 à 08:25:56

FORUM HardWare.fr

Programmation

Perl

[Perl] Utiliser un tableau d'une subroutine

Sujets relatifs
Problème avec un tableau HTML dynamique	[HTML] Cellule de tableau qui utilise la largeur restante
tableau sans tableau en css ....	Meilleure méthode pour utiliser un vecteur dans une fonction
Utiliser un Canvas pour dessiner dedant, et générer une Image	[PHP] Insertion d'un tableau dans un tableau
Problème de tableau dynamique	[Perl] Afficher seulement 2 chiffre après la virgule
probleme d'affichage tableau	script perl / script php: lequel est le plus rapide??
Plus de sujets relatifs à : [Perl] Utiliser un tableau d'une subroutine

Page générée en 0.060 secondes