Discussion :

[vbcasimir]

Bonjour ,

Je rencontre un petit souci lors d'une comparaison
voilà je compare des valeurs recupérées par des checkboxs à une valeur de type integer .

je voulais savoir si en perl il existe une fonction qui convertirais les valeurs checkbox qui sont considérées en tant que string en valeurs integer ... je ne veux pas faire un ord(monchaine) = entier , je veux convertir tout simplement comme en Delphi on a StrToInt(chaine) ...

Merci

[nyal]

Bonjour,

Je te renvois a ce poste qui traite du sujet :
http://www.developpez.net/forums/viewtopic.php?t=147564

Merci de faire une recherche au prealable.

[vbcasimir]

merci pour le lien mais ma comparaison se fait sur une valeur qui est déjà un entier peut -on procéder de la même façon c'est à dire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my ($IntVal , $StrVal) = ($IntegerVal , "12000"); <-- où $IntegerVal est déjà un entier

[Jedai]

Euh... Où est la comparaison ??? :

[vbcasimir]

lorsque j'écris

my ($IntVal , $StrVal) = ($IntegerVal , "12000"); <-- où $IntegerVal est déjà un entier

je n'ai pas écris la suite c'est à dire la comparaison je reprenait
un bout de code du lien sur lequel tu as fait reference .
le code je le rappel était le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
my ($parents, $amis) = ("120 parents", "1 ami"); 
print "Plus de parents que d'amis" if( $amis < $parents );

dans lequel on compare deux string par le bié d'un scalaire

dans mon cas je precisais que je n'ai pas 2 strings mais un entier
et une chaine
c'est pour ça que j'ai écris

my ($IntVal , $StrVal) = ($IntegerVal , "12000");

et que je posais la question peut - on faire la même comparaison ...
mais j'ai essayé et çà ne marche pas car apparemment il me faudrait
deux chaines et non un entier et une chaine .. ou alors je m'y suis mal
pris

[Jedai]

Ca marche très bien chez moi, cette comparaison fonctionne (quand je change la valeur aussi évidemment) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
#!/usr/bin/perl
 
my ($IntVal , $StrVal) = (120000 , "12000"); 
 
print "OK !!" if $IntVal < $StrVal;

Je répète que Perl interprète le type des scalaires uniquement d'après le contexte, en contexte numérique (comme quand on emploie < ou + ou... tout opérateur numérique), et qu'il considère alors toute string comme un nombres.
Par contre il faut que ta string commence vraiment par le nombre, sinon elle sera interprétée comme 0.
Pour la "convertir", il te suffit de retirer tous les caractères avant le premier chiffre (ou "." si tu crains d'avoir affaire à un float).

[vbcasimir]

bon si ça marche de ton côté il y a aucune raison que je n'y arrive pas

je vais retenter ..