Perl에서 변수에 숫자 값이 있는지 어떻게 알 수 있습니까?

Perl에서 변수에 숫자 값이 있는지 어떻게 알 수 있습니까?

---

주어진 변수가 숫자인지 확인할 수있는 간단한 방법이 Perl에 있습니까? 라인을 따라 뭔가 :

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

이상적 일 것입니다. -w스위치를 사용할 때 경고를 표시하지 않는 기술 이 확실히 선호됩니다.

---

Scalar::Util::looks_like_number()내부 Perl C API의 looks_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 스칼라 :: Util
• perldoc perlapi forlooks_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";
}

(bitwise는 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 에서 찾을 수 있습니다 .

It sounds like you want to know if Perl thinks a variable is numeric. Here's a function that traps that warning:

sub is_number{
  my $n = shift;
  my $ret = 1;
  $SIG{"__WARN__"} = sub {$ret = 0};
  eval { my $x = $n + 1 };
  return $ret
}

Another option is to turn off the warning locally:

{
  no warnings "numeric"; # Ignore "isn't numeric" warning
  ...                    # Use a variable that might not be numeric
}

Note that non-numeric variables will be silently converted to 0, which is probably what you wanted anyway.

---

rexep not perfect... this is:

use Try::Tiny;

sub is_numeric {
  my ($x) = @_;
  my $numeric = 1;
  try {
    use warnings FATAL => qw/numeric/;
    0 + $x;
  }
  catch {
    $numeric = 0;
  };
  return $numeric;
}

---

Try this:

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

---

I found this interesting though

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

---

Personally I think that the way to go is to rely on Perl's internal context to make the solution bullet-proof. A good regexp could match all the valid numeric values and none of the non-numeric ones (or vice versa), but as there is a way of employing the same logic the interpreter is using it should be safer to rely on that directly.

As I tend to run my scripts with -w, I had to combine the idea of comparing the result of "value plus zero" to the original value with the no warnings based approach of @ysth:

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

---

You can use Regular Expressions to determine if $foo is a number (or not).

Take a look here: How do I determine whether a scalar is a number

---

if ( defined $x && $x !~ m/\D/ ) {} or $x = 0 if ! $x; if ( $x !~ m/\D/) {}

This is a slight variation on Veekay's answer but let me explain my reasoning for the change.

Performing a regex on an undefined value will cause error spew and will cause the code to exit in many if not most environments. Testing if the value is defined or setting a default case like i did in the alternative example before running the expression will, at a minimum, save your error log.

참고URL : https://stackoverflow.com/questions/12647/how-do-i-tell-if-a-variable-has-a-numeric-value-in-perl