从Perl转换为PHP

Question

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

如何将这段代码翻译成PHP？我唯一无法翻译的部分是第3行的作品，以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的=~运算符具有相同的用途。