batooh: PHP -> PERL?

Beitrag lesen

Hallo.

Kann mir evtl. jmd. einen Tipp geben?

Wie wäre es mit einem regulären Ausdruck?

my $self_url = 'http://'.$ENV{'SERVER_NAME'}.$ENV{'SCRIPT_NAME'};  
$self_url =~ s{[^/]*$}{};

Der hier entfernt alles am Ende von $self_url, das kein Slash ist.

Schöne Grüße.