Как мне узнать, имеет ли переменная числовое значение в Perl?

Question

Есть ли в Perl простой способ, который позволит мне определить, является ли данная переменная числовой? Что-то вроде:

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

было бы идеально. Техника, которая не выдаёт предупреждения при использовании переключателя -w, безусловно, предпочтительнее.

Answer 1

Попробуйте это:

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

Answer 2

У меня эта функция работает:

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

Answer 3

Вы можете использовать регулярные выражения, чтобы определить, является ли $ foo числом (или нет).

Взгляните сюда: Как определить, является ли скаляр числом

Answer 4

Лично я думаю, что для этого нужно полагаться на внутренний контекст Perl, чтобы сделать решение пуленепробиваемым. Хорошее регулярное выражение может соответствовать всем действительным числовым значениям и ни одному из нечисловых (или наоборот), но, поскольку есть способ использовать ту же логику, которую использует интерпретатор, она должна быть безопаснее полагаться на это напрямую. 1001 *

Поскольку я склонен запускать свои сценарии с -w, мне пришлось объединить идею сравнения результата «значение плюс ноль» с исходным значением с основанным на no warnings подходом @ysth:

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

Answer 5

if (определено $ x && $ x! ~ M / \ D /) {} или же $ x = 0, если! $ Х; if ($ x! ~ m / \ D /) {}

Это небольшой разброс в ответе Викай, но позвольте мне объяснить мои причины такого изменения.

Выполнение регулярного выражения для неопределенного значения приведет к появлению ошибки и к выходу кода во многих, если не в большинстве сред. Проверка, определено ли значение или установка регистра по умолчанию, как я делал в альтернативном примере, перед запуском выражения, как минимум, сохранит ваш журнал ошибок.