[解決済み] Perlで変数が数値を持っているかどうかを判断するには？

質問

与えられた変数が数値であるかどうかを判断するためのPerlの簡単な方法はありますか？ 行に沿った何か。

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

があれば理想的です。 のときに警告を投げないテクニックが必要です。 -w スイッチが使用されているときに警告を出さないテクニックが確かに望ましいです。

どのように解決するのですか？

使用方法 Scalar::Util::looks_like_number() これは、Perl C API の内部関数 looks_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 Scalar::Util
• perldoc perlapi に対して looks_like_number