Bonjour à tous,
depuis le début, je mettais en place des solutions personnalisées pour afficher les messages d'aide et d'usage pour mes scripts. J'ai donc découvert avec plaisir Pod::Usage au détour d'un surf.
Mais j'ai des soucis à l'utilisation 
J'ai l'impression que, même en utilisant des exemples simples, ça ne marche pas comme cela devrait 
Dans le programme suivant, le message "**Page de Manuel**" ne s'affiche pas quand j'utilise --man...
Et le --version n'affiche pas que la section VERSION mais toute l'aide (comme man en fait).
Est-ce normal, ai-je raté quelque chose ? Pourtant, j'ai l'impression d'avoir bien collé aux exemples trouvés sur le net 
Code :
- use strict;
- use Getopt::Long;
- use Pod::Usage;
- use Data::Dumper;
- my $help = 0;
- my $man = 0;
- my $version = 0;
- GetOptions('help|?' => \$help, 'man' => \$man, 'version' => \$version) or pod2usage(2);
- pod2usage(1) if $help;
- pod2usage(-message => "**Page de Manuel**", -verbose => 2) if $man;
- pod2usage(-verbose => 99, -section => 'VERSION') if $version;
- pod2usage("$0: Pas assez d'arguments.\n" ) if ($#ARGV < 0);
- print Dumper(@ARGV);
- __END__
- =head1 NAME
- testoptions3 - TESTESTEST
- =head1 SYNOPSIS
- testoptions3 [options]
- Options:
- --help | -? court message d'aide
- --man page du manual
- --version | -v version du programme
- =head1 OPTIONS
- =over 8
- =item B<--help>
- Affiche un court message d'aide et sort du programme.
- =item B<--man>
- Affiche la page de manuel du programme et sort.
- =item B<--version>
- Affiche la version du programme et sort.
- =back
- =head1 DESCRIPTION
- B<Ce programme> teste pod2usage.
- =head1 VERSION
- testoptions3.pl - version 1.0
- =cut
|
merci d'avance
Edit: si je passe le mode -verbose à 1 dans
Code :
- pod2usage(-message => "**Page de Manuel**", -verbose => 2) if $man;
|
comme cela :
Code :
- pod2usage(-message => "**Page de Manuel**", -verbose => 1) if $man;
|
alors le message "**Page de Manuel**" s'affiche bien ?! Sauf que tout le texte n'apparait plus puisque je suis en mode verbose 1 et non 2...
Par contre, pas moyen de n'avoir que la section VERSION :-/ même en changeant le verbose
edit pour le déplacement: j'avais hésité entre module et langages, mais comme la description est "Vos questions et problèmes sur l'installation, la création de modules et packages Perl sur différents OS", je me suis dit que cela ne concernait pas l'utilisation 
