PHP -> PERL?

[_roro]

Habe folgenden PHP-Code:
$self_url = "http://" . $_SERVER['SERVER_NAME'] . $_SERVER['SCRIPT_NAME'];
$self_url = substr($self_url, 0, strrpos($self_url, '/')) . "/";

Ich schaff es nicht, den in PERL zu übersetzen. Das kann doch nicht so schwer sein, oder?

Du Suchst wahrscheinlich

$self_url = $ENV{SCRIPT_NAME};

also die URL für das PERL/CGI-Script self.

--roro