Module Perl pour récupérer les options passées en ligne de commande.

----------------------------------------------------------------------

Exemple 1 : on peut mettre toutes les options dans une table de hachage. 

./toto --title="foo bar" --dic edict --debug --noindex -- -this_is_not_an_option 

use Getopt::Long;
my %optctl = ();
GetOptions(\%optctl, "dictionary=s", "title=s", "address=s", "debug", "index!");

----------------------------------------------------------------------

Exemple 2 : on peut les mettre dans des variables différentes. 

use Getopt::Long;
my $dic = "edict"; # default value
my $title = "";    # default value : empty string
my $address;       # default value : undef
my $debug = FALSE;
my $index = FALSE;
GetOptions("dictionary=s" => \$dic,
	   "title=s"      => \$title,
	   "address=s"    => \$address,
	   "debug"        => \$debug,
	   "index!"       => \$index,
	  );

----------------------------------------------------------------------

Exemple 3 : On peut récupérer une liste, dont 
            les éléments sont donnés un par un.

./toto --library lib/stdlib --library lib/extlib

use Getopt::Long;
my @libfiles = ();
GetOptions ("library=s" => \@libfiles);


Exemple 3 bis : Idem, mais on peut donner plusieurs éléments à la fois, 
                en les séparant par des virgules. 

./toto --library lib/stdlib,lib/extlib --library $HOME/gnu/`uname`/lib

use Getopt::Long;
my @libfiles = ();
GetOptions ("library=s" => \@libfiles);
@libfiles = split(/,/,join(',',@libfiles));