PHP -> PERL?

[stefanpr]

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?

Kann mir evtl. jmd. einen Tipp geben?

Danke SPR