從Perl翻譯爲PHP

Question

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

如何將這段代碼翻譯爲PHP？唯一不能翻譯的是第三行的作品，從if開始。

我該怎麼做？

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功能有異曲同工之妙的Perl的=~運營商。