|
|
|
|
Salut,
Il exite une fonction en QBasic qui est " SNG "
Cette fonction retourne le signe d'une expression numérique:
- si l'expression numérique est positive, SNG renvoi +1
- si l'expression numérique est zéro, SNG renvoi 0
- si l'expression numérique est négative, SNG renvoi -1
Existe-t-il l'équivalent en Perl, ou du moins comment faire ?
Je ne suis pas très expérimenté en Perl, mais il me faut transposer
un programme QB...
Merci.
Bonjour,
|