IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Modules Perl Discussion :

GetOptions et messages d'erreur


Sujet :

Modules Perl

  1. #1
    Membre éclairé
    Inscrit en
    Janvier 2007
    Messages
    273
    Détails du profil
    Informations personnelles :
    Âge : 42

    Informations forums :
    Inscription : Janvier 2007
    Messages : 273
    Par défaut GetOptions et messages d'erreur
    Bonjour tout le monde!!
    J'aimerais savoir si vous connaissez un moyen simple pour que Getoption ne renvoi pas de messages d'erreur quand on lui passe une option inconnu.
    J'ai besoin de cela car j'ai un script, qui a pour paramètre un autre script avecdes options. Il doit pouvoir prendre en paramètre un bon nombe de script et leur paramètre. Dans mon script de lancement, je ne veux récupérer que certain paramètre optionel et donc ne pas afficher d'erreur quand la fonction getOptions va lire les paramètres.
    j'ai essayer :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Getopt::Long::Config("path_trough");
    et 
    GetOpt::Long qw(:config path_througt);
    Aucune de ces deux manière de faire ne passe sur ma machne.
    est ce que vous auriez une piste?

  2. #2
    Membre chevronné Avatar de Beniou
    Homme Profil pro
    Inscrit en
    Novembre 2009
    Messages
    357
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Novembre 2009
    Messages : 357
    Par défaut
    Bonjour,

    L'option "pass_through" de Configure du package GetOpt::Long fonctionne et fait ce que tu veux : tu t'es juste trompé dans l'orthographe.

    Exemple qui fonctionne pour moi :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
     
    use strict;
    use Getopt::Long;
     
    my $opt1 = "default";
    my $opt2 = "default";
     
    Getopt::Long::Configure('pass_through');
     
    GetOptions('opt1=s' => \$opt1,
    	   'opt2=s' => \$opt2);
     
    print "opt1 = $opt1\n";
    print "opt2 = $opt2\n";
     
     
    foreach my $arg(@ARGV){
      print "autre argument : $arg\n";
    }

Discussions similaires

  1. [TSocket] Message d'erreur
    Par rgz dans le forum Web & réseau
    Réponses: 6
    Dernier message: 04/07/2003, 09h16
  2. Surcharger le message d'erreur après un OnException
    Par Tirlibibi dans le forum XMLRAD
    Réponses: 2
    Dernier message: 24/04/2003, 11h42
  3. Réponses: 4
    Dernier message: 04/03/2003, 01h05
  4. [CR] Message d'erreur
    Par nono1 dans le forum SAP Crystal Reports
    Réponses: 2
    Dernier message: 11/09/2002, 14h54
  5. Réponses: 2
    Dernier message: 27/05/2002, 19h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo