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 : Sélectionner tout - Visualiser dans une fenêtre à part
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