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

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있으므로 "value plus 0"의 결과를 원래 값과 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; if ($ x! ~ m / \ D /) {}

이것은 Veekay의 대답에 대한 약간의 변형이지만 변경에 대한 이유를 설명하겠습니다.

정의되지 않은 값에 대해 정규식을 수행하면 오류가 발생하고 대부분의 환경은 아니지만 대부분의 환경에서 코드가 종료됩니다. 값이 정의되어 있는지 테스트하거나 표현식을 실행하기 전에 대체 예제에서했던 것처럼 기본 케이스를 설정하면 최소한 오류 로그가 저장됩니다.