Як визначити, чи має змінна числове значення в Perl?

Чи існує простий спосіб у Perl, який дозволить мені визначити, чи є дана змінна числовою? Щось на зразок:

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

було б ідеально. -wБезумовно, кращою є техніка, яка не видаватиме попереджень під час використання комутатора.

Використання, Scalar::Util::looks_like_number()яке використовує внутрішню функцію Perl C API Look_like_number (), що є, мабуть, найефективнішим способом зробити це. Зауважте, що рядки "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 Scalar :: Util
• perldoc perlapi дляlooks_like_number

Перевірте модуль 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;або вище.)

Проста (і, можливо, спрощена) відповідь на запитання полягає в тому, що зміст $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*$/;
}

Я не вірю, що є щось вбудоване для цього. Більше, ніж ви коли-небудь хотіли бачити на цю тему, див. Perlmonks on Detecting Numeric

Трохи більш надійний регулярний вираз можна знайти в 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, що, мабуть, і так і хотілося.

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

Спробуйте це:

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 числом (чи ні).

Погляньте тут: Як визначити, чи є скаляр числом?

якщо (визначено $ x && $ x! ~ m / \ D /) {} або $ x = 0 якщо! $ х; якщо ($ x! ~ м / \ D /) {}

Це невелика варіація відповіді Вікея, але дозвольте пояснити мої міркування щодо зміни.

Виконання регулярного виразу з невизначеним значенням спричинить викид помилки та змусить код вийти у багатьох, якщо не в більшості середовищах. Тестування, чи визначено значення, або встановлення типового випадку, як це робив я в альтернативному прикладі перед запуском виразу, як мінімум збереже журнал помилок.