[bcn-pm] Getopt::Long i funcions per una mateixa opció

[Arnau Bria]

On Mon, 6 Feb 2012 16:53:40 +0100
Alex Muntada wrote:

> + Arnau Bria <listsarnau a gmail.com>:
> 
> > Per tant he acabant fent un cutre "case" dintre del sub:
> >
> > GetOptions ('list=s' =>  sub { for ($opt{$_[0]}{$_[1]}) {
> >                                /postinstall/ and do
> > {list_postinstall(); last; }; /distro/        and do
> > {list_distros(); last;}; }
> >                        });
> > Que si funciona.
> 
> Pots indicar-nos com utilitzes l'opció --list des de l'intèrpret
> d'ordres i com queda %opt abans de la crida a GetOptions? Jo no tinc
> tan clar que funcioni com cal...
i no funciona.... tenia la crida a les funcions i no la referència a
elles.

>        postinstall     => list_postinstall(),

al final m'ha quedat algo com:

GetOptions (
        'postintalls|P' => sub { print "\nValid Postinstalls\n" ; print
"------------------\n\n"; &list_postinstall(); print "\n"; exit 0},
'distros|D'     => sub { print "\nValid Distributions\n"; print
"-------------------\n\n"; &list_distros(); print "\n"; exit 0 },
'vlans|V'       => sub { print "\Valid Vlans\n";  print
"---------------\n\n"; print Dumper $vlans ; exit 0 } , 'discs|d'
=> sub { print "\Valid Discs\n";  print "---------------\n\n"; print
Dumper $discs ; exit 0 } , 'partitions|p'  => sub { print "\Valid
Partitions\n";  print "---------------\n\n"; print Dumper $partitions ;
exit 0 } , );

i ho crido com:

kickgen --partitions

el --list ha quedat fora :-(

> Salut!
gràcies!
Arnau