Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!

Idiom #150 Remove trailing slash

Remove the last character from the string p, if this character is a forward slash /

var
  Len: Integer;
begin
  Len := Length(p);
  if (Len > 0) and (p[Len] = '/') then Delete(P, Len, 1);
end;
uses SysUtils;
begin
  AllowDirectorySeparators := AllowDirectorySeparators + ['/'];
  p := ExcludeTrailingPathDelimiter(p);
end;
(clojure.string/replace p #"/$" "")
(defn remove-ending-slash
  [p]
  (if (clojure.string/ends-with? p "/")
    (subs p 0 (dec (count p)))
    s))
 if('/' == s.back())
  s.pop_back();
p = p.TrimEnd('/');
import std.stdio : writeln;
import std.algorithm.mutation : stripRight;
auto p = "no_more_slashes///".stripRight!(a => a == '/');
writeln(p); // no_more_slashes
import std.string;
p=p.chomp("/");
if (p.endsWith("/")) p = p.substring(0, p.length - 1);
def main(string), do: String.replace_suffix(string, "/", "")
removeTrailingSlash([$/]) -> [];
removeTrailingSlash([]) -> [];
removeTrailingSlash([Ch | Rest]) ->
        [Ch] ++ removeTrailingSlash(Rest).
program x
character(len=:),allocatable :: string
integer :: ii
string='my string/'
ii=len(string)
string=trim(merge(string(:ii-1)//' ',string,string(ii:ii).eq.'/'))
write(*,*)string
end program x

import "strings"
p = strings.TrimSuffix(p, "/")
slashscrape p = if last p == '/' then init p else p
const slashscrape = p => (
  p.slice (-1) === '/' ?
    p.slice (0, -1) :
    p
)
p = p.replaceAll("(?<!^)/+$", "");
int n = p.length() - 1;
if (n != 0 && p.charAt(n) == '/')
    p = p.substring(0, n);
if (p.endsWith("/")) {
    p = p.substring(0, p.length() - 1);
}
p = p.replaceAll("/$", "");
p = string.gsub(p,"/$","")
$p = rtrim($p, '/');
$p =~ s{/$}{};
{ local $/='/'; chomp $p }
p = p.rstrip("/")
p.chomp!("/")
p = p.chomp("/")
if p.ends_with('/') { p.pop(); }
p.stripSuffix("/")
New implementation...
< > ⌨
programming-idioms.org 
var
  Len: Integer;
begin
  Len := Length(p);
  if (Len > 0) and (p[Len] = '/') then Delete(P, Len, 1);
end;
begin
  AllowDirectorySeparators := AllowDirectorySeparators + ['/'];
  p := ExcludeTrailingPathDelimiter(p);
end;
(clojure.string/replace p #"/$" "")
(defn remove-ending-slash
  [p]
  (if (clojure.string/ends-with? p "/")
    (subs p 0 (dec (count p)))
    s))
 if('/' == s.back())
  s.pop_back();
p = p.TrimEnd('/');
auto p = "no_more_slashes///".stripRight!(a => a == '/');
writeln(p); // no_more_slashes
p=p.chomp("/");
if (p.endsWith("/")) p = p.substring(0, p.length - 1);
def main(string), do: String.replace_suffix(string, "/", "")
removeTrailingSlash([$/]) -> [];
removeTrailingSlash([]) -> [];
removeTrailingSlash([Ch | Rest]) ->
        [Ch] ++ removeTrailingSlash(Rest).
program x
character(len=:),allocatable :: string
integer :: ii
string='my string/'
ii=len(string)
string=trim(merge(string(:ii-1)//' ',string,string(ii:ii).eq.'/'))
write(*,*)string
end program x

p = strings.TrimSuffix(p, "/")
slashscrape p = if last p == '/' then init p else p
const slashscrape = p => (
  p.slice (-1) === '/' ?
    p.slice (0, -1) :
    p
)
p = p.replaceAll("(?<!^)/+$", "");
int n = p.length() - 1;
if (n != 0 && p.charAt(n) == '/')
    p = p.substring(0, n);
if (p.endsWith("/")) {
    p = p.substring(0, p.length() - 1);
}
p = p.replaceAll("/$", "");
p = string.gsub(p,"/$","")
$p = rtrim($p, '/');
$p =~ s{/$}{};
{ local $/='/'; chomp $p }
p = p.rstrip("/")
p.chomp!("/")
p = p.chomp("/")
if p.ends_with('/') { p.pop(); }
p.stripSuffix("/")