script perl

[invitedb5f9f42]

quelqu'un peut me dire se qui cloche dans ce script perl?

#!/usr/local/bin/perl

$nombre=<STDIN>;
if($nombre=~/[^0-9]/){
die("nombre faux\n");
}
print ("nombre juste\n");


-----

[Sn8K]

pour l'instant, rien ... vu qu'il en manque !

tu peux pas mettre le script entier ? parce la , tu n'indiques pas la valeur de "nombre faux" , et tu lui dis d'afficher quand meme "nombre exact" ...

[invitedb5f9f42]

ben le script comme tel si tu le copie devrait deja fonctionner, la valeur du nombre est lu de l'entree standard, en fait j'ai ecrit un script qui recupere des tableaux de donnees et leurs applique une mise en forme, jusque la pas de soucis tout fonctionne mais je voulai rajouter en option la possibilité de lui indiquer une limite de nombre de lignes a recuperer par tableau, c'est pour cela que j'ai ecrit ce petit script qui est sensé attendre qu'on lui entre un nombre pour continuer la suite du script (en fait c'est ce qu'il y a la place de nombre juste) mais j'ai placé un "if" pour verifier que l'expression en entrée est bien un nombre et pas autre chose, et c'est pour cela que j'ai placé un "die" pour si c'est l'expression contient un caractere qui n'est pas un nombre il quitte le programme en affichant erreur.
ce qui m'embete c'est que le test sur l'expression reguliere ne fonctionne pas, si je met if($nombre=~/[a-z]/) ça marche mais ça ne m'exclu pas les caracteres speciaux, c'est la negation avec "^" qui ne marche pas et je ne comprend pas pourquoi.
j'espere avoir clairement expliqué mon probleme.