Comment puis-je savoir si une variable a une valeur numérique en Perl?

Est-il un moyen simple en Perl qui me permettra de déterminer si une variable est numérique? Quelque chose le long des lignes de:

if (is_number($x))
{ ... }

serait l'idéal. Une technique qui ne lancer des avertissements lorsque la -w commutateur est utilisé est certainement préférable.

InformationsquelleAutor Derek Park | 2008-08-15
  1. 119

    Utilisation Scalar::Util::looks_like_number() qui utilise les internes de Perl C de l'API de looks_like_number() de la fonction, ce qui est probablement le moyen le plus efficace pour ce faire.
    Notez que les chaînes "inf" et "infini" sont traités comme des numéros.

    Exemple:

    #!/usr/bin/perl

use warnings;
use strict;

use Scalar::Util qw(looks_like_number);

my @exprs = qw(1 5.25 0.001 1.3e8 foo bar 1dd inf infinity);

foreach my $expr (@exprs) {
    print "$expr is", looks_like_number($expr) ? '' : ' not', " a number\n";
}

    Donne ce résultat:

    1 is a number
5.25 is a number
0.001 is a number
1.3e8 is a number
foo is not a number
bar is not a number
1dd is not a number
inf is a number
infinity is a number

    Voir aussi:

    • Et comme d'habitude avec perl docs, de trouver la réelle définition de quoi la fonction est plutôt difficile. En suivant le sentier perldoc perlapi nous dit: Tester si le contenu d'un SV ressemble à un numéro (ou un nombre). "Inf" et "Infini" sont traités comme des nombres (et ne sera donc pas question d'un non-numérique d'avertissement), même si votre atof() n'en connaît pas d'eux. À peine un testable spec...
    • La description dans Scalar::Util est fine, looks_like_number vous indique si votre entrée est quelque chose que Perl serait de la considérer comme un nombre, ce qui n'est pas nécessairement la meilleure réponse à cette question. La mention de atof est pas pertinent, atof n'est pas une partie de CORE:: ou POSIX (vous devriez être à la recherche à strtod qui a englobé atof et /est/ une partie de POSIX) et en supposant que ce que Perl pense que c'est un numéro est valable numérique d'entrée pour les fonctions C est évidemment très mal.
    • très appréciable 🙂 pour le fnud et non nombre de chaînes retourne 0, pour le nombre de chaînes retourne 1, pour les entiers retourne 4352 et pour des flotteurs retourne 8704 🙂 en général >0 nombre est détecté. Je l'ai testé sous linux.
    • J'aime cette fonction en général, mais de considérer les grands entiers. 1000000 y a beaucoup de zéros pour garder une trace de, la mendicité pour l'erreur, mais de 1 000 000 est perçu comme un trois-élément de tableau, donc Perl accepte 1_000_000, mais looks_like_number() dit non. Me rend triste.
    • Remarque: les chaînes hexadécimales comme 0x12 sont pas considérés comme des numéros par ce test.
    • looks_like_number expose le fonction c'est la même chose que ce que Perl utilise, par magie, convertir des chaînes en nombres. Des traits de soulignement, hexadécimal, octal et binaire les nombres ne sont autorisés que des littéraux dans la source, pas de chaînes, si par exemple la 0+"0x15" ne marche pas droit. (Notez que looks_like_number("0 but true") est vrai! 🙂 référence)

    InformationsquelleAutor nohat
  2. 23

    Découvrez le module CPAN Regexp::Common. Je pense que c'est exactement ce dont vous avez besoin et gère tous les cas de bord (par exemple, des nombres réels, la notation scientifique, etc). par exemple,

    use Regexp::Common;
if ($var =~ /$RE{num}{real}/) { print q{a number}; }
    InformationsquelleAutor naumcho
  3. 21

    La question initiale était de savoir comment savoir si une variable est numérique, pas si elle "a une valeur numérique".

    Il y a un peu d'opérateurs qui ont séparé les modes de fonctionnement pour le numérique et la chaîne des opérandes, où "numérique" s'entend de tout ce qui a été à l'origine d'un nombre ou n'a jamais été utilisé dans un contexte numérique (par exemple, dans $x = "123"; 0+$x, avant l'ajout, $x est une chaîne de caractères, par la suite, il est considéré comme numérique).

    Une façon de dire est ceci:

    if ( length( do { no warnings "numeric"; $x & "" } ) ) {
    print "$x is numeric\n";
}
    • Excellent, merci! C'est précisément ce que je cherchais.
    • Si je le package de votre routine dans un sous, je reçois un comportement étrange en ce qu'il détecte les valeurs non numériques correctement, jusqu'à ce que j'essaie de sortir la première valeur numérique, qui est également détecté correctement comme vrai, mais ensuite, tout le reste à partir de là, est également vrai. Quand je mets une eval autour de la longueur(...) une partie, cependant, il fonctionne très bien tout le temps. Toute idée de ce que j'ai été absent? sub numeric { $obj = shift; no warnings "numeric"; return eval('length($obj & "")'); }
    • vous réutilisez le même $obj variable à chaque fois; essayez my $obj = shift;. Pourquoi l'eval?
    • oups, my bad, j'ai utilisé my $obj = shift, bien sûr, il suffit de ne pas le transférer correctement à partir de mon code pour le commentaire, j'ai édité un peu. Cependant, sub numeric { my $obj = shift; no warnings "numeric"; return length($obj & ""); } produit la même erreur. Bien sûr, avoir un clandestin variable globale permettrait d'expliquer le comportement, c'est exactement ce que je m'attends dans ce cas, mais malheureusement, il n'est pas simple. Aussi, ce serait d'être pris par strict & warnings. J'ai essayé le eval dans une tentative désespérée de se débarrasser de l'erreur, et cela a fonctionné. Pas plus loin le raisonnement, procès juste & erreur.
    • Check it out: sub numeric { my $obj = shift; no warnings "numeric"; return length($obj & ""); } print numeric("w") . "\n"; #=>0, print numeric("x") . "\n"; #=>0, print numeric("1") . "\n"; #=>0, print numeric(3) . "\n"; #=>1, print numeric("w") . "\n"; #=>1. Si vous mettez un eval(") autour de la longueur, la dernière impression donnerait un 0, comme il se doit. Aller à la figure.
    • version en perl? il fonctionne pour moi (0,0,0,1,0)

    InformationsquelleAutor ysth
  4. 8

    Un simple (et peut-être simpliste) de répondre à la question est le contenu de $x numérique est la suivante:

    if ($x  eq  $x+0) { .... }

    Il ne textuelle comparaison de l'original $x avec le $x converti en valeur numérique.

    • Que va lancer des mises en garde si vous utilisez "w" ou "utilisation de mises en garde,".
    • Les avertissements peuvent être retirés $x eq (($x+0)."") cependant un problème plus grave, c'est que sous cette fonction, "1.0" n'est pas numérique
    • il suffit de test $x+0 ne " . lorsque vous texte 0001, puis le nombre exact sera vérifié que non nombre. la même, c'est quand vous test '.05' valeur de texte.
    InformationsquelleAutor Peter Vanroose
  5. 7

    Généralement le numéro de validation se fait avec des expressions régulières. Ce code permettra de déterminer si quelque chose est numérique ainsi que de vérifier pour des variables non définies à ne pas jeter avertissements:

    sub is_integer {
   defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
}

sub is_float {
   defined $_[0] && $_[0] =~ /^[+-]?\d+(\.\d+)?$/;
}

    Voici quelques matériel de lecture vous devriez regarder.

    • Ce manque beaucoup de cas, y compris la notation scientifique.
    • Je ne pense que cela divague un peu, surtout quand la personne dit /simple/. De nombreux cas, y compris la notation scientifique, ne sont guère simple. À moins que l'utilisation de ce pour un module, je ne voudrais pas vous soucier de ces détails. Parfois, la simplicité est la meilleure. Ne pas mettre le sirop de chocolat dans les vaches en lait au chocolat!
    • '.7" est probablement l'un des plus simple des cas, c'est encore raté... il vaut mieux essayer /^[+-]?\d*\.?\d+$/ pour flotter. Ma variante, compte tenu de la notation scientifique, trop: /^[+-]?\d*\.?\d+(?:(?:e|E)\d+)?$/
    • Le \d*\.?\d+ partie introduit une Rétablissements de risque. Je recommande /^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?$/ ou /^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?(?:(?<=[\d.])e[+-]?\d+)?$/i pour inclure la notation scientifique (explication et des exemples) à la place. Il utilise un doublé d'anticipation négatif de prévenir aussi des chaînes de caractères comme . et .e0 de passer par des nombres. Il utilise également un positif lookbehind pour assurer la e suit un certain nombre.
    InformationsquelleAutor andrewrk
  6. 3

    Pas parfait, mais vous pouvez utiliser une regex:

    sub isnumber 
{
    shift =~ /^-?\d+\.?\d*$/;
}
    • Même problème que andrewrk réponse: manque beaucoup, même les cas les plus simples, l'e. g. '.7'
    InformationsquelleAutor farmerchris
  7. 3

    Je ne crois pas qu'il y a quelque chose builtin pour le faire. Pour plus que vous avez toujours voulu voir sur le sujet, voir Perlmonks sur la Détection Numérique

    InformationsquelleAutor jsight
  8. 2

    Un peu plus robuste regex peuvent être trouvés dans Regexp::Common.

    Il semble que vous voulez savoir si Perl pense qu'une variable est numérique. Voici une fonction que les pièges de cette mise en garde:

    sub is_number{
  my $n = shift;
  my $ret = 1;
  $SIG{"__WARN__"} = sub {$ret = 0};
  eval { my $x = $n + 1 };
  return $ret
}

    Une autre option consiste à désactiver l'avertissement localement:

    {
  no warnings "numeric"; # Ignore "isn't numeric" warning
  ...                    # Use a variable that might not be numeric
}

    Noter que le non-variables numériques seront silencieusement converti à 0, ce qui est probablement ce que vous voulais de toute façon.

    InformationsquelleAutor Jon Ericson
  9. 2

    rexep pas parfait... c'est:

    use Try::Tiny;

sub is_numeric {
  my ($x) = @_;
  my $numeric = 1;
  try {
    use warnings FATAL => qw/numeric/;
    0 + $x;
  }
  catch {
    $numeric = 0;
  };
  return $numeric;
}
    InformationsquelleAutor fringd
  10. 1

    Essayez ceci:

    If (($x !~ /\D/) && ($x ne "")) { ... }
    InformationsquelleAutor CDC
  11. 1

    J'ai trouvé cela intéressant, bien que

    if ( $value + 0 eq $value) {
    # A number
    push @args, $value;
} else {
    # A string
    push @args, "'$value'";
}
    • vous avez besoin d'expliquer au mieux , vous dites u le trouver intéressant, mais le fait de répondre à l'op? Essayez d'expliquer pourquoi votre réponse est la solution de la question posée
    • Par exemple, mon $a la valeur 1, valeur en $ + 0 reste la même à 1. En le comparant à $valeur de 1 est égale à 1. Si la valeur est une chaîne dire "swadhi" puis $valeur + 0 devient la valeur ascii de la chaîne "swadhi" + 0 = un autre nombre.
    InformationsquelleAutor Swadhikar C
  12. 0

    Personnellement, je pense que le chemin à parcourir est de s'appuyer sur Perl contexte interne pour faire la solution à l'épreuve des balles. Une bonne regexp peut correspondre à toutes les valeurs numériques valides et aucun des non-numériques (ou vice versa), mais comme il y a une façon d'utiliser la même logique de l'interprète est de l'utiliser doit être plus sûr de compter sur directement.

    Comme j'ai tendance à exécuter mes scripts avec -w, j'ai eu de combiner l'idée de comparer le résultat de la "valeur plus zéro" à la valeur d'origine avec le no warnings approche fondée sur @ysth:

    do { 
    no warnings "numeric";
    if ($x + 0 ne $x) { return "not numeric"; } else { return "numeric"; }
}
    InformationsquelleAutor zagrimsan
  13. 0

    Vous pouvez utiliser des Expressions Régulières pour déterminer si $foo est un nombre (ou pas).

    Prendre un coup d'oeil ici:
    Comment puis-je déterminer si un scalaire est un nombre

    InformationsquelleAutor bLIGU
  14. -1

    si ( défini $x && $x !~ m/\D/) {}
    ou
    $x = 0 si ! $x;
    if ( $x !~ m/\D/) {}

    C'est une légère variation sur Veekay de la réponse, mais laissez-moi vous expliquer mon raisonnement pour le changement.

    De l'exécution d'une expression rationnelle sur une valeur non définie provoque des erreurs de spew et entraîne le code de sortie à beaucoup, sinon la plupart des environnements. De tester si la valeur est définie ou l'établissement d'un cas par défaut comme je l'ai fait dans l'exemple de remplacement avant l'exécution de l'expression, au minimum, enregistrez votre journal des erreurs.

    InformationsquelleAutor Jason Van Patten
  15. -1

    Cela fonctionne pour moi: 

        sub IS_Integer() 
    {
        my $Text = shift;
        my $Integer = 0;

        if ($Text =~ /\D/)
        {
            $Integer = 1;
        }
        if ($Text =~ /^\d+$/)
        { 
            $Integer = 1;
        }
        if ($Text =~ /^-?\d+$/)       
        { 
            $Integer = 1;
        }
        if ($Text =~ /^[+-]?\d+$/)    
        { 
            $Integer = 1; 
        }
        if ($Text =~ /^-?\d+\.?\d*$/) 
        {
            $Integer = 1; 
        }
        if ($Text =~ /^-?(?:\d+(?:\.\d*)?&\.\d+)$/) 
        {
            $Integer = 1;
        }
        if ($Text =~ /^([+-]?)(?=\d&\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/)
        {
            $Integer = 1;
        }

        return $Integer;
    }
    InformationsquelleAutor Mohamad Hamouday