Logo

Programming-Idioms

  • Perl
  • Lua

Idiom #151 Remove string trailing path separator

Remove last character from string p, if this character is the file path separator of current platform.

Note that this also transforms unix root path "/" into the empty string!

if string.sub(p, -1, -1) == "/" then
	p=string.sub(p, 1, -2)
end

"/" is tolerated by io library regardless of a platform.
use File::Spec qw();
chomp $p, File::Spec->catdir('');
using System.IO;
p.TrimEnd(Path.DirectorySeparatorChar);
New implementation...
< > ⌨
programming-idioms.org 
if string.sub(p, -1, -1) == "/" then
	p=string.sub(p, 1, -2)
end
chomp $p, File::Spec->catdir('');
p.TrimEnd(Path.DirectorySeparatorChar);

p = p.chomp(dirSeparator);
if (p.endsWith(path.separator)) p = p.substring(0, p.length - 1);
sep := fmt.Sprintf("%c", filepath.Separator)
p = strings.TrimSuffix(p, sep)
sep := fmt.Sprintf("%c", os.PathSeparator)
p = strings.TrimSuffix(p, sep)
p' = dropWhileEnd (== pathSeparator) p
p = p.endsWith(path.sep) ? p.slice(0, -path.sep.length) : p
int n = p.length() - 1;
while (n != 0 && p.charAt(n) == separatorChar)
    p = p.substring(0, n--);
begin
  p := ChompPathDelim(p);
end.
begin
  p := ExcludeTrailingPathDelimiter(p);
end.
if p.endswith(os.sep):
    p = p[:-1]
p.chomp!("/")
let p = if ::std::path::is_separator(p.chars().last().unwrap()) {
    &p[0..p.len()-1]
} else {
    p
};
p = p.strip_suffix(std::path::is_separator).unwrap_or(p);