Перевести с 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 соответствует следующему регулярному выражению. Это просто вызов preg_match() в PHP:

// 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 * функция 1001 *preg_match служит для той же цели, что и оператор Perl =~.