Есть ли в 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 Scalar :: Util
- Perldoc Perlapi для
looks_like_number
Не идеально, но вы можете использовать регулярное выражение:
sub isnumber
{
shift =~ /^-?\d+\.?\d*$/;
}
Обычно проверка номера выполняется с помощью регулярных выражений. Этот код будет определять, является ли что-то числовым, а также проверять неопределенные переменные, чтобы не выдавать предупреждения:
sub is_integer {
defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
}
sub is_float {
defined $_[0] && $_[0] =~ /^[+-]?\d+(\.\d+)?$/;
}
Вот некоторые материалы для чтения, на которые вы должны посмотреть.
\d*\.?\d+
Часть представляет Redos риск. Я рекомендую /^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?$/
или /^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?(?:(?<=[\d.])e[+-]?\d+)?$/i
включить научную запись ( объяснение и примеры ). При этом используется двойное отрицательное предвосхищение, чтобы также не передавать строки типа .
и .e0
как числа. Он также использует положительный взгляд сзади, чтобы обеспечить e
следующее число. Я не верю, что для этого есть что-то встроенное. Больше, чем вы когда-либо хотели увидеть по этому вопросу, смотрите Perlmonks по обнаружению чисел.
Несколько более надежное регулярное выражение можно найти в 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, что, вероятно, в любом случае вам и нужно.
Проверьте модуль CPAN Regexp :: Common . Я думаю, что он делает именно то, что вам нужно, и обрабатывает все крайние случаи (например, действительные числа, научные записи и т. Д.). например
use Regexp::Common;
if ($var =~ /$RE{num}{real}/) { print q{a number}; }
Первоначальный вопрос заключался в том, как определить, является ли переменная числовой, а не «имеет ли она числовое значение».
Есть несколько операторов, которые имеют отдельные режимы работы для числовых и строковых операндов, где «числовой» означает все, что изначально было числом или когда-либо использовалось в числовом контексте (например, в $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;
или выше.)
sub numeric { $obj = shift; no warnings "numeric"; return eval('length($obj & "")'); }
my $obj = shift;
. Почему Eval? my $obj = shift
, конечно, просто неправильно перенес это из моего кода в комментарий, я немного его отредактировал. Однако sub numeric { my $obj = shift; no warnings "numeric"; return length($obj & ""); }
выдает ту же ошибку. Конечно, наличие скрытой глобальной переменной могло бы объяснить поведение, это именно то, чего я ожидал бы в этом случае, но, к сожалению, не все так просто. Кроме того, это будет поймано strict
& warnings
. Я попробовал eval в довольно отчаянной попытке избавиться от ошибки, и это сработало. Нет более глубоких рассуждений, просто метод проб и ошибок. 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, как и должно быть. Пойди разберись. 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;
}
Простой (и , возможно , упрощенно) ответ на вопрос , является содержание $x
числового заключается в следующем:
if ($x eq $x+0) { .... }
Это делает текстовое сравнение оригинала $x
с $x
преобразованным в числовое значение.
$x eq (($x+0)."")
однако хуже проблема в том, что под этой функцией «1.0» не является числовымПопробуй это:
If (($x !~ /\D/) && ($x ne "")) { ... }
if (определено $ x && $ x! ~ m / \ D /) {} или $ x = 0 if! $ Х; if ($ x! ~ m / \ D /) {}
Это небольшой разброс в ответе Veekay, но позвольте мне объяснить мои аргументы в пользу этих изменений.
Выполнение регулярного выражения для неопределенного значения приведет к появлению ошибки и к выходу кода во многих, если не в большинстве сред. Проверка, определено ли значение или установка регистра по умолчанию, как я делал в альтернативном примере, перед выполнением выражения, как минимум, сохранит ваш журнал ошибок.
Я нашел это интересным, хотя
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 числом (или нет).
Посмотрите здесь: Как определить, является ли скаляр числом
perldoc perlapi
мы узнаем: проверить, выглядит ли содержимое SV как число (или число). «Inf» и «Infinity» обрабатываются как числа (поэтому не будут выдавать нечисловое предупреждение), даже если ваш atof () их не подставляет. Едва ли поддающаяся проверке спецификация ...0x12
, не считаются числами в этом тесте.