Perl で変数に数値があるかどうかを確認するにはどうすればよいですか?

https://stackoverflow.com/questions/12647

perl
numbers

08-06-2019
|

質問

Perl で、指定された変数が数値かどうかを判断できる簡単な方法はありますか?次のようなもの:

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

理想的でしょう。ときに警告をスローしないテクニック。 -w スイッチを使用することが確実に推奨されます。

解決

使用 Scalar::Util::looks_like_number() これは内部 Perl C API の look_like_number() 関数を使用します。これはおそらくこれを行う最も効率的な方法です。文字列「inf」と「infinity」は数値として扱われることに注意してください。

例：

#!/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";
}

次の出力が得られます。

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

以下も参照してください。

perldoc スカラー::ユーティリティ
perldoc ペルラピのために looks_like_number

他のヒント

CPANモジュールを確認してください正規表現::共通. 。必要なことを正確に実行し、すべてのエッジケースに対処できると思います（例：実数、科学的表記法など)。例えば

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

当初の質問は、変数が「数値を持っているかどうか」ではなく、変数が数値であるかどうかをどのように判断するかということでした。

数値オペランドと文字列オペランドに対して個別の操作モードを持つ演算子がいくつかあります。「数値」とは、元々数値だったもの、または数値のコンテキストで使用されたことのあるものを意味します (例:で $x = "123"; 0+$x, 追加する前に、 $x は文字列ですが、その後は数値とみなされます)。

見分ける方法の 1 つは次のとおりです。

if ( length( do { no warnings "numeric"; $x & "" } ) ) {
    print "$x is numeric\n";
}

質問に対するシンプルな（そしておそらく単純すぎる）答え の内容です $x 数値 は次のとおりです。

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

オリジナルとのテキスト比較を行います $x とともに $x 数値に変換されます。

通常、数値の検証は正規表現を使用して行われます。このコードは、警告をスローしないように未定義の変数をチェックするだけでなく、何かが数値であるかどうかを判断します。

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

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

ここにいくつかあります読み物見るべきだ。

完璧ではありませんが、正規表現を使用できます。

sub isnumber 
{
    shift =~ /^-?\d+\.?\d*$/;
}

それを行うための何かが組み込まれているとは思えません。この件に関してあなたがこれまで見たかった以上のものについては、以下を参照してください。 Perlmonks による数値の検出

もう少し堅牢な正規表現は次の場所にあります。正規表現::共通.

Perl が変数を数値であると認識しているかどうかを知りたいようですね。その警告をトラップする関数は次のとおりです。

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

別のオプションは、ローカルで警告をオフにすることです。

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

数値以外の変数は暗黙的に 0 に変換されることに注意してください。これはおそらくあなたが望んでいたものです。

rexep は完璧ではありません...これは：

use Try::Tiny;

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

これを試して：

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

これは面白いと思いましたが、

if ( $value + 0 eq $value) {
    # A number
    push @args, $value;
} else {
    # A string
    push @args, "'$value'";
}

個人的には、ソリューションを完全なものにするために Perl の内部コンテキストに依存するのが最善の方法だと思います。適切な正規表現は、有効な数値すべてに一致し、数値以外の値には一致しない (またはその逆) 可能性がありますが、インタプリタが使用しているものと同じロジックを使用する方法があるため、それに直接依存する方が安全です。

私はスクリプトを実行する傾向があるので、 -w, 「値にゼロを加えた値」の結果を元の値と比較するというアイデアを、 no warnings @ysth のベースのアプローチ:

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

正規表現を使用して、$foo が数値かどうか (数値でないのか) を判断できます。

ここを見てください:スカラーが数値かどうかを判断するにはどうすればよいですか

if（定義$ x && $ x！〜m/ d/）{}または$ x = 0 if！$x;if ( $x !~ m/\D/) {}

これは Veekay の答えとは少し異なりますが、変更の理由を説明させてください。

未定義の値に対して正規表現を実行すると、エラーが発生し、ほとんどではないにしても多くの環境でコードが終了します。値が定義されているかどうかをテストするか、式を実行する前に別の例で行ったようにデフォルトのケースを設定すると、少なくともエラーログが保存されます。

この関数は私にとってはうまくいきます:

    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;
    }

ライセンス： CC-BY-SA と帰属

所属していません StackOverflow