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


84

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

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

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

Ответы:


129

Используйте 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

Смотрите также:


1
И, как обычно с документами perl, найти фактическое определение того, что делает функция, довольно сложно. Следование по следу perldoc perlapiговорит нам: проверьте, выглядит ли содержимое SV как число (или как число). «Inf» и «Infinity» обрабатываются как числа (поэтому не будут выдавать нечисловые предупреждения), даже если ваш atof () не распознает их. Едва ли проверяемая спецификация ...
День

3
Описание в Scalar :: Util в порядке, look_like_number сообщает вам, является ли ваш ввод чем-то, что Perl будет рассматривать как число, что не обязательно является лучшим ответом на этот вопрос. Упоминание atof не имеет значения, atof не является частью CORE :: или POSIX (вы должны смотреть на strtod, который включает atof и / является / частью POSIX) и предполагая, что то, что Perl считает числом, является допустимым числовым вводом к функциям C, очевидно, очень неправильно.
MkV

очень хорошая функция :) для undef и не числовых строк возвращает 0, для числовых строк возвращает 1, для целых возвращает 4352 и для чисел с плавающей запятой возвращает 8704 :) обычно> 0 число обнаруживается. Я тестировал под linux.
Znik

1
Мне эта функция нравится в целом, но я считаю большие целые числа. 1000000 - это множество нулей, за которыми нужно следить, напрашиваясь на ошибку, но 1000000 рассматривается как трехэлементный массив, поэтому Perl принимает 1_000_000, но look_like_number () говорит нет. Расстраивает меня.
Дэйв Джейкоби

Примечание: шестнадцатеричные строки нравится 0x12которые не считаются цифры в данном тесте.
Адам Кац

23

Ознакомьтесь с модулем CPAN Regexp :: Common . Я думаю, что он делает именно то, что вам нужно, и обрабатывает все крайние случаи (например, действительные числа, научную запись и т. Д.). например

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

23

Первоначальный вопрос заключался в том, как определить, является ли переменная числовой, а не «имеет ли она числовое значение».

Есть несколько операторов, которые имеют отдельные режимы работы для числовых и строковых операндов, где "числовой" означает все, что изначально было числом или когда-либо использовалось в числовом контексте (например $x = "123"; 0+$x, перед сложением $xэто строка, а затем считается числовым).

Один из способов сказать это:

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

Если включена побитовая функция, которая создает &только числовой оператор и добавляет отдельный строковый &.оператор, вы должны отключить ее:

if ( length( do { no if $] >= 5.022, "feature", "bitwise"; no warnings "numeric"; $x & "" } ) ) {
    print "$x is numeric\n";
}

(побитовое доступно в Perl 5.022 и выше и включено по умолчанию, если вы use 5.028;или выше.)


Отлично, спасибо! Это именно то, что я искал.
Хуан А. Наварро

Если я упакую вашу подпрограмму в подпрограмму, я получу странное поведение в том смысле, что она правильно обнаруживает нечисловые значения, пока я не попробую первое числовое значение, которое также правильно определяется как истинное, но затем все остальное оттуда выходит тоже верно. Однако когда я помещаю eval вокруг длины (...), он все время работает нормально. Есть идеи, что мне не хватало? sub numeric { $obj = shift; no warnings "numeric"; return eval('length($obj & "")'); }
yogibimbi

@yogibimbi: вы каждый раз повторно используете одну и ту же переменную $ obj; попробуй my $obj = shift;. Почему именно eval?
ysth

упс мой плохой, пользовался my $obj = shift, конечно, просто не правильно перенес из кода в комментарий, немного подредактировал. Однако sub numeric { my $obj = shift; no warnings "numeric"; return length($obj & ""); }выдает ту же ошибку. Конечно, наличие скрытой глобальной переменной объяснило бы поведение, это именно то, что я ожидал в этом случае, но, к сожалению, это не так просто. Кроме того, это будет обнаружено strict& warnings. Я попробовал eval в довольно отчаянной попытке избавиться от ошибки, и это сработало. Никаких более глубоких рассуждений, только метод проб и ошибок.
yogibimbi

Проверьте это: 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. Если вы поместите eval ('') вокруг длины, последний отпечаток даст 0, как и должно быть. Иди разбери.
yogibimbi

9

Обычно проверка числа выполняется с помощью регулярных выражений. Этот код определит, является ли что-то числовым, а также проверит наличие неопределенных переменных, чтобы не выдавать предупреждения:

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

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

Вот некоторые материалы для чтения, на которые стоит обратить внимание.


2
Я действительно думаю, что это немного отвлекает, особенно когда спрашивающий сказал / просто /. Многие случаи, в том числе научные обозначения, вряд ли просты. Если не использовать это для модуля, я бы не стал беспокоиться о таких деталях. Иногда простота лучше. Не добавляйте шоколадный сироп в корову, чтобы сделать шоколадное молоко!
osirisgothra

'.7' - это, вероятно, один из самых простых случаев, который все еще упускается ... лучше попробовать /^[+- provided?\d*\.?\d+$/ для float. Мой вариант, учитывая тоже научную нотацию: /^[+-)?\d*\.?\d+(?:(?:e|E)\d+)?$/
Аконкагуа

Эта \d*\.?\d+часть вводит риск ReDoS . Я рекомендую /^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?$/или /^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?(?:(?<=[\d.])e[+-]?\d+)?$/iвключаю научные обозначения (Вместо этого объяснения и примеры ). При этом используется удвоенный отрицательный просмотр вперед, чтобы также предотвратить передачу таких строк как числа .и в .e0виде чисел. Он также использует положительный просмотр назад, чтобы гарантировать, что eчисло следует за ним.
Адам Кац

9

Простой (и, возможно, упрощенный) ответ на вопрос заключается в следующем: числовое содержание$x :

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

Он выполняет текстовое сравнение оригинала $xс $xпреобразованным в числовое значение.


1
Это вызовет предупреждения, если вы используете «-w» или «использовать предупреждения;».
Дерек Парк

1
Предупреждения могут быть удалены, $x eq (($x+0)."")однако более серьезная проблема заключается в том, что в этой функции «1.0» не является числовым
Eponymous

1
достаточно тестирования $ x + 0 ne ''. когда вы наберете 0001, правильный номер будет отмечен как не номер. то же самое происходит, когда вы проверяете текстовое значение '.05'.
Znik

4

Не идеально, но вы можете использовать регулярное выражение:

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

Та же проблема, что и ответ Эндрюрка: пропускает многие даже простые случаи, например, '.7'
Аконкагуа


2

Чуть более надежное регулярное выражение можно найти в Regexp :: Common .

Похоже, вы хотите знать, считает ли 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, что, вероятно, и так вам нужно.


2

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


1

Я нашел это интересным

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

вам нужно объяснить лучше, вы говорите, что находите это интересным, но отвечает ли это на оп? Попытайтесь объяснить, почему ваш ответ является решением
заданного

Например, мое $ value равно 1, $ value + 0 остается таким же 1. При сравнении с $ value 1 равно 1. Если $ value представляет собой строку, скажем "swadhi", тогда $ value + 0 становится значением ascii строки "swadhi" + 0 = какое-то другое число.
Свадхикар,

0

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

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

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


-1

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

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

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

Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.