Getopt, liste d'argument assignée à une option

Bonjour,

J'ai découvert le module Getopt qui se révèle très puissant. J'éprouve toutefois des difficultés à acceder à un champ du hachage que getopt remplit. Ce champs correspond à une option de mon programme (-e ou --select) qui peut etre appelée plusieurs fois avec plusieurs arguments.

Ces arguments sont alors mis dans une liste qui correspond à une clé de mon hachage.

Voici le code :

fichier : options.pm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my %my_hash;   sub my_getopt { GetOptions(\%my_hash, "c|categories", "e|select=s@", "f|final", "n|number", "a|all") or print_usage(); return %my_hash; }

---

fichier : test.pl

Code:

---

1 2 3 4

my @tab; @tab = $hash{"e"}; map { print } @tab;

---

Je subodore un problème de référence...mais étant toujours débutant dans ce langage je ne les maitrise pas bien (et ce, malgré la FAQ).
Toute explication utilisant du C pour exemple sera la bienvenue si cela peut vous aider à m'expliquer ;) .

Merci d'avance !

Hello, 1° petite remarque, ta méthode mygetopt a un petit problème : elle remplit une hash déclarée au niveau global sans la vider au préalable... Il vaut mieux l'écrire ainsi:

Code:

---

1 2 3 4 5 6 7 8 9 10

sub my_getopt { my %my_hash = (); GetOptions(\%my_hash, "c|categories", "e|select=s@", "f|final", "n|number", "a|all") or print_usage(); return %my_hash; }

---

ensuite, une fois que tu as fais un appel à cette méthode, utilise le module Data::Dumper pour voir ce que contient ta hashmap:

Code:

---

1 2 3 4 5 6

use strict; use warnings; use Data::Dumper;   my %hash = &my_getopt(); print Dumper(%hash);

---

Et poste ici le résultat d'execution du programme. Ainsi, on pourra voir exactement ce que contient la hash !

Bonsoir,

Merci, j'ai donc effectué les modifications suggérées et rajouter les modules necessaires.

fichier options.pm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

sub my_getopt { my %my_hash = ();   GetOptions(\%my_hash, "c|categories", "e|select=s@", "f|final", "n|number", "a|all") or print_usage(); return \%my_hash; }

---

fichier test.pl

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#! /usr/bin/perl   use Data::Dumper; use strict; use options;   my $hash = options::my_getopt();   print $hash . "\n"; my %lol = %{$hash}; print Dumper($hash);

---

L'appel du script donne :

Code:

---

1 2 3 4 5 6 7 8

[lucifer]/u/a1/varlet_s/SVN/42sh/de-gor_f-42sh/check/temp/42SH_PERL > ./test.pl --select lol1 lol2 lol3 [Last Exit: OK] HASH(0x8173a8c) $VAR1 = { 'e' => [ 'lol1' ] };

---

Donc à priori en faisant quelques modif j ai plus ou moins compris les références...
Ai-je raison de penser que lorsque j effectue

Code:

---

1 2	my $hash = options::my_getopt();

---

$hash une adresse mémoire ?

Apparemment c'est le cas, par conséquent j ai essayé de recuperer cette @?#)è! liste qui est dans ce hachage et là je bloque...

Etant donné que tu as modifé ton code pour renvoyer une référence sur une hash

Code:

---

return \%my_hash;

---

quand tu fais

Code:

---

my $hash = options::my_getopt();

---

$hash contient une référence sur une hash...
pour accéder à la hash, il faut utiliser $$hash
pour accéder à l'élément e, il faut donc faire appel à $$hash{'e'}
et $$hash{'e'} contient une référence sur un tableau...

du coup pour récupérer la donnée:

Code:

---

my $value = $$hash{'e'}[0];

---