Discussion :

[Eames38]

Bonjour,

Je voudrais savoir si il existe une fonction qui permet de détecter quel type de variable un scalaire est.

Plus précisément, j'ai une variable $argument et je veux savoir si c'est un type String (chaine de caractère), Integer (entier) ou Real (chiffres à virgules).

Merci d'avance pour vos réponses.

[Dimitry.e]

Le module POSIX intègre des fonctions pour ça, si j'ai bonne mémoire.
Mais, au pire, il existe des tests simples pour déterminer le type d'un scalaire.
En voici quelques uns :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
foreach my $a qw(5 4.4 0 -1.2 asdf 12asdf asdf12 1.2e3 0e0) {
  if (($a * 1) ne $a ) {
    print $a." is a string\n";
  } elsif (int($a) == $a) {
    print $a." is an integer\n";
  } elsif ($a=~/^[-+]?\d+\.?\d*$/) {
    print $a." is a float\n";
  }  
}

[Eames38]

D'accord je vais essayé cette solution Est ce que tu pourrais commenter ce petit code, parce que je n'ai pas compris les trois premières lignes.

[Dimitry.e]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
foreach my $a qw(5 4.4 0 -1.2 asdf 12asdf asdf12 1.2e3 0e0) { #0
  if (($a * 1) ne $a ) { #1
    print $a." is a string\n";
  } elsif (int($a) == $a) { #2
    print $a." is an integer\n";
  } elsif ($a=~/^[-+]?\d+\.?\d*$/) { #3
    print $a." is a float\n";
  }  
}

0. On construit une liste de valeurs et on les teste une à une.

1. En multipliant $a par 1, on demande à le convertir en nombre, si possible. Or, une chaîne comme "12abc" sera convertie en "12" et "abc12" en 0.
Elle ne sera donc pas égale à elle-même si c'est une chaîne : "24" *1 == "24"
"12abc" * 1 == "12" != "12abc"...

2. la routine int() permet de récupérer la partie entière d'un nombre (on sait que ça en est un puisque le test 1 a échoué). int() retourne la même valeur que $a, alors on sait que c'est un entier.

3. Si $a matche avec une chaîne commençant par '-' ou '+' puis que des nombres et éventuellement un point et à nouveau des nombres, alors c'est un flottant.
Ce dernier test permet de savoir s'il s'agit d'un nombre de manière générale. Mais comme si c'était un entier, le test précédent aurait été vrai, on sait que c'est un flottant.

[Eames38]

Je viens de tester, et à priori c'est parfaitement ce que je recherchai. Par contre, j'ai des warning pour ces arguments :

04-Mar-2011
STI7105IUD/A32
2210113QZP
DEF

message : Argument "DEF" isn' numeric in multiplication (*)

C'est une réaction normal je pense. En tout cas, ça fait exactement ce que je désire.

Autre chose pour cet argument : 06.29, il le détecte comme un string. Peut être à cause du "0" devant (?).

En tout cas merci.

[Philou67430]

La question de savoir si un scalaire est une chaine ne se pose pas vraiment : un scalaire peut toujours être une chaine (sauf les références, qu'il faut tester avec la fonction ref).
Ne se pose alors que la question de savoir si un scalaire peut être entier ou flottant, et considérer que s'il n'est ni l'un, ni l'autre, c'est une chaine.

En revanche, effectuer des tests numériques sur un scalaire qui n'est pas numérique génère des warnings. Par ailleurs, comme tu l'as relevé, cette méthode comporte certaines limites.

Par contre, il existe des modules qui testent les types numériques : l'un d'eux Scalar::Util::Numeric (voir la liste des SEE ALSO)