펄에서 숫자의 유효성을 검사하는 방법은 무엇입니까?

Question

내가 할 그 라이브러리가 있다는 것을 알고

사용 스칼라 :: 백분율 QW (looks_like_number);

아직 펄 정규 표현식을 사용하고 싶습니다. 그리고 정수로만 구성된 것이 아니라 두 배의 숫자로 작업하기를 원합니다.

그래서이

$ var에보다 더 나은 뭔가를 원하는 = ~/^ [+ -] \ D + $/

감사?.

Answer 1

숫자를 확인하기 위해 하나의 정규 표현식을 만드는 것은 정말 어렵습니다. 고려해야 할 기준이 너무 많습니다. Perlfaq4는 어떻게 스칼라인지 여부를 결정합니까 "섹션을 포함하는 수/전체/정수/부동

이 문서에서 코드는 다음의 시험을 보여줍니다?

if (/\D/)       {print "has nondigits\n"  } 
if (/^\d+$/)      {print "is a whole number\n" } 
if (/^-?\d+$/)      {print "is an integer\n"  } 
if (/^[+-]?\d+$/)     {print "is a +/- integer\n" } 
if (/^-?\d+\.?\d*$/)    {print "is a real number\n" } 
if (/^-?(?:\d+(?:\.\d*)?|\.\d+)$/) {print "is a decimal number\n"} 
if (/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/) { 
    print "is a C float\n" 
} 

이

• 첫 번째 시험은 자격을 상실를 부호없는 정수
• 두 번째 테스트는 정수를 한정합니다.
• 세 번째 테스트는 정수를 한정합니다.
• 네 번째 테스트는 양수/음수 부호있는 정수를 정규화합니다.
• 다섯 번째 테스트는 실수를 한정합니다.
• 여섯 번째 테스트는 십진수를 규정합니다.
• 일곱 번째 테스트는 c 스타일 과학 표기법으로 숫자를 한정합니다.

그렇다면이 테스트를 사용하는 경우 (첫 번째 테스트 제외) 하나 이상의 테스트가 통과하는지 확인해야합니다. 그럼 번호가 있어요.

다른 방법은 Scalar :: Util 모듈을 사용하고 싶지 않으므로 Scalar :: Util 코드에서 배울 수 있습니다. looks_like_number() 함수는 다음과 같이 설정 :

sub looks_like_number { 
    local $_ = shift; 

    # checks from perlfaq4 
    return $] < 5.009002 unless defined; 
    return 1 if (/^[+-]?\d+$/); # is a +/- integer 
    return 1 if (/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/); # a C float 
    return 1 if ($] >= 5.008 and /^(Inf(inity)?|NaN)$/i) 
      or ($] >= 5.006001 and /^Inf$/i); 

    0; 
} 

당신은 당신의 상황에 적용 할 수있는 그 기능의 일부를 사용할 수 있어야합니다.

그러나 Scalar::Util은 핵심 Perl 모듈입니다. strict처럼 Perl과 함께 제공됩니다. 모든 것을 사용하는 것이 최선의 방법 일 것입니다.

Answer 2

Regexp :: Common을 사용해야합니다. 대부분의 패턴은 알고있는 것보다 복잡합니다.

use Regexp::Common; 

my $real = 3.14159; 
print "Real" if $real =~ /$RE{num}{real}/; 

그러나, 패턴은 기본적으로 고정되지 않으므로 엄격한 버전은 다음과 같습니다

my $real_pat = $RE{num}{real}; 
my $real  = 3.14159; 
print "Real" if $real =~ /^$real_pat$/; 

Answer 3

그럼 먼저 당신이이 작업을 수행 할 수 있도록 수있는 쉼표를 포함하지 않는 것을 확인해야합니다 :

$ var = ~ s /, // g; # 모든 쉼표를 제거하십시오.

그런 다음 나머지 변수를 작성하여 비교 작업을 수행하십시오.

$ var2 = $ var;

다음을 제거하십시오. 새로운 변수에서 아직 한 번만 발생합니다.

$ var2 = ~ s /.//; # 바꾸세요. 아직 한 번만 비교할 것은 없습니다.

이제 var2는 "."이없는 정수처럼 보입니다. 때문에이 작업을 수행 :

if($var2 !~ /^[+-]?\d+$/){ 
     print "not valid"; 
    }else{ 
     #use var1 
    } 

이 코드를 수정하고 당신이 그것을 한 번 이상 사용해야 할 경우 함수로 쓸 수 있습니다. 건배!