Perl에서 PHP로 변환

Question

sub numeric_p { 
    local($data) = @_; 
    if ($data =~ /^-?\d*\.?\d*(e\d|e-\d)?\d*$/) { 
     $true; 
    } else { 
     $false; 
    }; 
} 

어떻게이 코드를 PHP으로 번역 할 수 있습니까? 번역 할 수없는 유일한 부분은 if으로 시작하는 3 번째 줄의 부분입니다.

어떻게하면됩니까?

Answer 1

$data이 다음 정규식과 일치하면 테스트입니다. 단지 PHP preg_match()에 호출된다 :

// In Perl 
if ($data =~ /^-?\d*\.?\d*(e\d|e-\d)?\d*$/) 

// In PHP: 
if (preg_match('/^-?\d*\.?\d*(e\d|e-\d)?\d*$/', $data)) 

Answer 2

PHP의 preg_match 함수 펄 =~ 조작과 동일한 기능을 수행한다.