Как узнать, имеет ли переменная числовое значение в Perl?
Вопрос
Есть ли в Perl простой способ определить, является ли данная переменная числовой?Что-то вроде:
if (is_number($x))
{ ... }
было бы идеально.Техника, которая не выдает предупреждений, когда -w
переключатель используется, безусловно, предпочтительнее.
Решение
Использовать Scalar::Util::looks_like_number()
который использует внутреннюю функцию Looks_like_number() внутреннего API Perl C, что, вероятно, является наиболее эффективным способом сделать это.Обратите внимание, что строки «inf» и «бесконечность» рассматриваются как числа.
Пример:
#!/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 Скаляр::Util
- Перлдок Перлапи для
looks_like_number
Другие советы
Ознакомьтесь с модулем CPAN Регулярное выражение::Общее.Я думаю, что он делает именно то, что вам нужно, и обрабатывает все крайние случаи (например.действительные числа, экспоненциальная запись и т. д.).например
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";
}
Простой (и, возможно, упрощенный) ответ на вопрос это содержание $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*$/;
}
Я не верю, что есть что-то встроенное, чтобы сделать это.Больше, чем вы когда-либо хотели узнать по этому вопросу, см. Перлмонкс об обнаружении числовых значений
Немного более надежное регулярное выражение можно найти в Регулярное выражение::Общее.
Похоже, вы хотите знать, считает ли 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, чего вы, вероятно, в любом случае и хотели.
Рексеп не идеален...Это:
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 !~ m/\D/) {}
Это небольшая вариация ответа Викая, но позвольте мне объяснить причину этого изменения.
Выполнение регулярного выражения для неопределенного значения приведет к появлению ошибок и завершению кода во многих, если не в большинстве, средах.Проверка того, определено ли значение, или установка регистра по умолчанию, как я сделал в альтернативном примере, перед запуском выражения, как минимум, сохранит ваш журнал ошибок.
Эта функция работает для меня:
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;
}