Perl

fonction avec table hash en parametre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : fonction avec table hash en parametre

donny3

salut,

Je souhaite faire une fonction qui prenne en parametre un tableau hash mais je ne sais pas comment le declarer dans ma fonction ??
je sais que je l'avais fait avec un array
et j'avais mis cela pour que ma fonction prennent en parametre le tableau

Code :

my @montableau= @_;

mais pour le hash cela ne fonctionne pas
j'ai essayer

Code :

my %montableau= %_;

marche pas non plus

Est ce que vous auriez des idée

Merci

Publicité

anapajari

s/travail/glanding on hfr/gs;

Apprendre les bases du perl parce que là c'est nawak [:spamafote]

Ta syntaxe pour récupérer un tableau n'est déjà pas correcte dans la mesure tu ne récupères pas un tableau mais tous les arguments de ta fonction. Par exemple avec l'appel suivant:

Code :

test(@param1, $param2)

a la récupération dans ta sub @montableau contiendra un tableau avec tous les éléments de @param1 et $param2 en dernier élément.

Quand on veut passer des tableaux/hash à une sub, sauf cas super particulier, on passe leur référence et on utilise celle-ci dans la fonction:

Code :

sub test {
my $hRef = shift;
foreach my $key ( keys %$hRef){
print 'key:', $key, ' value:', $hRef->{$key};
}
}
my %hash = ('A'=>'toto', 'B'=>'tata');
test(\%hash);

Encore une fois je pense qu'un peu de lecture de la doc/d'un bouquin ne serait pas du temps de perdu.

Message cité 2 fois
Message édité par anapajari le 30-03-2007 à 13:20:00

Aricoh

gentil mais fo po pousser

anapajari a écrit :

Encore une fois je pense qu'un peu de lecture de la doc/d'un bouquin ne serait pas du temps de perdu.

+1 :sarcastic:

Pour bosser via une fonction avec un hash qui lui est envoyé, comme toujours en Perl tu as plusieurs méthodes.

Soit une méthode simple sans références :

Code :

use strict;
my %toto = (1, "un", 2, "deux" );
%toto = AjouteCleValeur(%toto);
sub AjouteCleValeur
{
my %pouet = @_;
$pouet{3} = "trois";
return %pouet;
}

Soit par référence :

Code :

use strict;
my %toto = (1, "un", 2, "deux" );
AjouteCleValeur(\%toto);
sub AjouteCleValeur
{
my ($hash) = shift();
$hash->{3} = "trois";
}

Généralement, j'utilise la seconde méthode, plus souple lorsque l'on souhaite bosser directement dans le hash pour le modifier via la fonction appelée. Et aussi, parce que bien plus pratique lorsque la fonction reçoit scalaires, listes, hash de hash et autres bricoles plus ou moins amusantes

Message édité par Aricoh le 30-03-2007 à 13:54:20

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Aricoh

gentil mais fo po pousser

anapajari a écrit :

Apprendre les bases du perl parce que là c'est nawak [:spamafote]

Comme disait mon prof, y a certaines notions à savoir en Perl parmi lesquelles probablement la plus importante : connaître la notion de ce qu'est un scalaire, un tableau et un hachage.

Quand tu sais ça, c'est déjà pas mal

Message cité 1 fois

anapajari

s/travail/glanding on hfr/gs;

manque un my %pouet dans ta 1ere méthode

Aricoh a écrit :

je suis 200% d'accord mais je rajouterais les références, sinon tu te retrouves à pas faire la différence entre ces 3 écritures:

Code :

my $a = [1,2];
my $b = {1,2};
my $c = (1,2);

Message cité 1 fois

Aricoh

gentil mais fo po pousser

anapajari a écrit :

manque un my %pouet dans ta 1ere méthode

J'ai corrigé la boulette

anapajari a écrit :

je suis 200% d'accord mais je rajouterais les références, sinon tu te retrouves à pas faire la différence entre ces 3 écritures:

Code :

my $a = [1,2];
my $b = {1,2};
my $c = (1,2);

Certes certes :whistle: mais en disant mon truc, je pensais à la notion "B.A-baesque" en Perl. Il y a bien entendu d'autres notions à savoir mais que notre bonhomme n'aura pas le temps d'apprendre apparemment (au fait donny3, tu sais maintenant à quoi servent les fonctions print, close et open ou toujours pas ? )

donny3

les bases du perl je les connais Aricoh donc certaines reflexion vous pouvez les garder surtout le print;
ma question elle etait simple et j'ai eu la reponse c'etait cela

Citation :

my @montableau= @_;

pas besoin d'un debat la dessus;
on est pas censer tout savoir comme toi lol
à bonne entendeur

aricoh et anapajri vous etes un peu en contradiction
y'en a un qui me dit c'est possible avec cela

Citation :

my %pouet = @_;

et l'autre qui me donne un exemple dans lequel il utilise cela

Message cité 1 fois
Message édité par donny3 le 30-03-2007 à 16:41:18

anapajari

s/travail/glanding on hfr/gs;

donny3 a écrit :

les bases du perl je les connais Aricoh donc certaines reflexion vous pouvez

C'était pas méchant hein, mais je pense que non [:roane] ...
Et de toute façon au vu des questions que tu as posté dans la cat recemment, je vais encore insisté sur le fait qu'il te manque des bases pour comprendre ce que tu dois faire et pour le faire correctement et "proprement" ( même si en perl ça veut rien dire)
Perso, j'ai toujours sous la main:

la doc
les O'Reilly suivant "Perl in a nutshell" et "Advanced Perl Programming", et un peu plus loin "Perl Cookbook"
et la cpan

Et bin tu y trouves 95% des réponses/solutions [:spamafote]

Message cité 1 fois
Message édité par anapajari le 30-03-2007 à 16:41:39

donny3

ces deux bouquins y coutent une fortune

Citation :

les deux O'Reilly "Perl in a nutshell" et "Advanced Perl Programming"

anapajari

s/travail/glanding on hfr/gs;

[:pingouino] MAIS BIEN SUR !!!

Perl in A Nutshell: A Desktop Quick Reference (2nd Edition) (Paperback) 26$37
Advanced Perl Programming 26$37
Perl Cookbook 31$47

Publicité

donny3

je l'ai fait comme cela et sa fonctionne

Code :

my %tab;
my $chemin1="$home...";
%tab=recuperation(chemin1,%tab);
sub recuperation
{
my $chemin=shift;
my %tableau=@_;
open(FILE,"< $chemin" );
while(my $info=<FILE> )
{
if (not($info =~ /^XX/))
{
(my $champ,my $val)=split(/=/,$info);
$champ=~s/\s*$//;
$val=~s/\s*$//;
$tableau{$champ}=$val;
}
}
close(FILE));
return %tableau;
};

Message édité par donny3 le 30-03-2007 à 16:58:01

Aricoh

gentil mais fo po pousser

anapajari a écrit :

C'était pas méchant hein, mais je pense que non [:roane] ...

C'était une boutade mais bon... [:zeusy]

Et sinon Donny3, cette doc GRATUITE là, tu connais ? http://perl.enstimac.fr/DocFr.html

donny3

j'avais vu le site
mais pas fait attention à la doc
je crois que je vais faire un tour dans les boutique de livre d'occaz
et je vais m'en prendre un bien;

anapajari

s/travail/glanding on hfr/gs;

Si tu dois n'en prendre qu'un, je te conseille vraiment "Advanced Perl Programming".

Message édité par anapajari le 02-04-2007 à 09:10:23

donny3

merci du conseil
c'est ce bouquin http://www.unix.org.ua/orelly/perl/advprog/index.htm
?

Message cité 1 fois

Aricoh

gentil mais fo po pousser

donny3 a écrit :

merci du conseil
c'est ce bouquin http://www.unix.org.ua/orelly/perl/advprog/index.htm
?

Oui

donny3

je viens de lire une doc sur les reference et en gros sa signifie que dans ma fonction j'utilise un tableau qui lui va pointé sur le vrai tableau;

Code :

sub test {
my $hRef = shift;
foreach my $key ( keys %$hRef)
{
print 'key:', $key, ' value:', $hRef->{$key};
}
}
my %hash = ('A'=>'toto', 'B'=>'tata');
test(\%hash);

en faite sa signifie que $hRef est le tableau qui va pointé sur %hash(tu créer une reference quand tu appel ton hash dans la fonction $hRef = \%hash;
;
en faisant cette boucle foreach my $key ( keys %$hRef){
tu dereference la reference donc $hRef et du coup cela va pointé sur %$hRef %hash et tu recupere les valeurs contenu dans %hash;

Message édité par donny3 le 03-04-2007 à 11:29:52

matafan

C'est ça en gros, sauf qu'une référence c'est un scalaire, pas un tableau.

Tu peux aussi faire (note bien les accolades à la place des parenthèses) :

my $hashref = {'A'=>'toto', 'B'=>'tata'};
test($hashref);

Message édité par matafan le 03-04-2007 à 13:01:10

FORUM HardWare.fr

Programmation

Perl

fonction avec table hash en parametre

Sujets relatifs
Erreur d'accès ambigu à une fonction membre après dérivation multiple	Passage d'une requête en paramètre
ASP.NET structure table dataset	Combiner le résultat de deux requêtes sur une même table
[Java] Générer un hash MD5	[Résolu] Pb modification structure table pr rajouter auto-increment
comment utiliser cette fonction	table innodb
Fonction pour écrire un DWORD dans la base de registre avec VB6	Problemme sur fonction [debutant]
Plus de sujets relatifs à : fonction avec table hash en parametre

Page générée en 0.064 secondes