tester les parametres à l'entrée d'un script

bonsoir;

je cherche à tester les valeurs d'entrées dans mon script.
En fait, mon script s'appel de cette manière:
perl ~/bin/meteo.pl x
avec x = 0 ou 1 Rien d'autre.
J'arrive à tester toutes les valeurs hors 0 et 1, mais s'il n'y a pas de parametre, le script est executé. voila le début du script:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl -w my $type = shift @ARGV; if ($type =~ /[^0|1]/) { die "Usage: $0 <0|1>\n"; }   use Geo::METAR; use LWP::UserAgent; use strict; ......

---

Comment je peux faire pour quitter s'il n'y a pas de parametre en entrée ou si c'est autre chose que 0 ou 1?
La FAQ ne m'a pas aidé sur ce coup là.

Merci de votre aide.
R. Suinot

On ne poste pas sur ce forum mais uniquement dans les sous-forums, je te déplace dans "Langage".

Ton test est très bizarre, en fait il vérifie que l'argument ne contient pas "0" ou "|" ou "1" et dans ce cas arrête le programme... Je doute que ce soit ce que tu veux. Tu devrais réviser tes regexps et tes conditionnelles. Ce que tu veux est plutôt de l'ordre de :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl -w use Geo::METAR; use LWP::UserAgent; use strict;   my $type = shift @ARGV; if ($type !~ /^[01]$/) { die "Usage: $0 <0|1>\n"; }   #...

---

--
Jedaï

Désolé pour avoir mal 'posté', et merci pour avoir redirigé. :oops:

Ta solution est plus efficace que la mienne, mais fait t il tester avant, le cas ou $type est
'vide' (unset?)

Code:

---

1 2 3 4 5 6

$ ./meteo.pl 3 Usage: ./meteo.pl <0|1> $ ./meteo.pl Use of uninitialized value in pattern match (m//) at ./meteo.pl line 22. Usage: ./meteo.pl <0|1>

---

l'erreur levée ligne 22 est elle inévitable?

Rémi.

Non, elle n'est pas inévitable, mais tu dois alors tester si $type est défini.
Du coup, le test deviendrait quelque chose comme :

Code:

---

1 2 3 4

unless (defined $type and $type =~ /^[01]$/) { die "Usage: $0 <0|1>\n"; }

---

salut,

tu peux faire comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl -w use Geo::METAR; use LWP::UserAgent; use strict;   my $type = shift @ARGV; if (!defined($type) || $type !~ /^[01]$/) { die "Usage: $0 <0|1>\n"; }

---

à plus

on m'a prit de vitesse :P

Très fort!
J'avoue que je reste béa devant tant de perspicacité...

Ca marche, bien sur!
Gran merci à vous deux pour votre aide.
Je marque la discution comme résolue, mais je pense que je referais appel à vous plus tard.

Rémi.