mauvaise écriture Perl, testé un variable avec plusieurs intervale

Bonjour TLM,

j'ai un code Perl, mon soucis c'est avec la bonne écriture du code,

je parcours un fichier de valeurs, et a chaque fois que je prends une valeurs, je dois la repérer dans quel intervale appartient, par exemple j'ai ca :

Code:

---

1 2	elsif ( (($msisdn >= 213666610000) and ($msisdn <= 213666749999)) or (($msisdn >= 213666760000) and ($msisdn <= 213667469999)) )

---

le prob est j'ai plusieurs ligne pour cette comparaison, et bcp de (elsif) aussi, car je dois réperer chaque valeurs dans quel intervalle elle appartient ?

pouvez vous m'aidé pour que j'evite toute cette écriture mal Perlé (lol) ;)

et merci d'avance

pourquoi ne pas faire une procédure qui te gere tes vérification et retour 1 ou undef.
Ainsi ton script principal sera plus propre et maintenable

dans ce cas je vais écrire la même chose dans la procédure,

car j'ai pas qlq chose qui se repète, juste l'écriture pour plusieurs intervales différents qui es plus long