vérifier si un nombre est de type int ou float

En perl, je veux vérifier si la variable contient un nombre à virgule flottante de pas. Pour vérifier cela, je suis en utilisant,

my $Var = 0.02 # Floating point number

if (int($Var) != $Var) {

   # floating point number
}

Mais le code ci-dessus ne fonctionne pas pour les 0.0,

Comment puis-je y parvenir?

Quelle était la bonne réponse à votre question dépend entièrement de pourquoi vous voulez savoir. Qu'allez-vous faire de différent pour un nombre à virgule flottante?

OriginalL'auteur Alphaneo | 2010-11-04

  1. 15

    C'est une FAQ. Voir Comment puis-je déterminer si un scalaire est un nombre/entier/entier/float?

    Vous pouvez également utiliser Scalar::Util::Numeric.

    Fait intéressant, alors que

    #!/usr/bin/perl

use strict; use warnings;
use Scalar::Util::Numeric qw(isint);

my $x = 0.0;
print "int\n" if isint $x;

    imprime int (pas surprenant si vous regardez le code source), basé sur @tchrist commentaire, il devrait être possible d'examiner les informations fournies dans les variables de la structure de distinguer 0 de 0.0:

    #!/usr/bin/perl

use strict; use warnings;
use Devel::Peek;

my $x  = 0.0; print Dump $x;
my $y  = 0;   print Dump $y;
   $y *= 1.1; print Dump $y;

    De sortie:

    SV = NV(0x18683cc) à 0x182c0fc 
REFCNT = 1 
FLAGS = (PADMY,NOK,pNOK) 
NV = 0 
SV = IV(0x182c198) à 0x182c19c 
REFCNT = 1 
FLAGS = (PADMY,IOK,pIOK) 
IV = 0 
SV = PVNV(0x397ac) à 0x182c19c 
REFCNT = 1 
FLAGS = (PADMY,NOK,pNOK) 
IV = 0 
NV = 0 
PV = 0

    Il me semble que le chèque devra il suffit de regarder si le NOK drapeau est réglé. Il me prend les âges à écrire, même le plus simple XS donc je ne vais pas fournir une implémentation.

    Vous devez vous renseigner pour savoir s'il y a une nette IV de une sa.
    Avec la glibc, en fonction des systèmes, vous pouvez distinguer: $x eq -$x ? 'IV' : 'NV'

    OriginalL'auteur Sinan Ünür

  2. 7
    ($Var - int($Var))?'float':'int'
    Avertissement: ceci appelle une chaîne de caractères d'un "int". Il valide les chiffres, mais il ne garantit pas $Var est en réalité numérique.

    OriginalL'auteur Alex

  3. 1

    Vous pouvez utiliser autobox::module universel qui est la partie de autobox.

    #! /usr/bin/perl

use autobox::universal qw(type);

my $x = 42;
print type($x), "\n";;

$x = 42.0;
print type($x), "\n";

    De sortie:

    INTEGER
FLOAT

    OriginalL'auteur cono