Logo

Programming-Idioms

  • Perl

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!

import "fmt"
import "path/filepath"
import "strings"
sep := fmt.Sprintf("%c", filepath.Separator)
p = strings.TrimSuffix(p, sep)

filepath.Separator is a rune, it must be converted to string.
import "fmt"
import "os"
import "strings"
sep := fmt.Sprintf("%c", os.PathSeparator)
p = strings.TrimSuffix(p, sep)

os.PathSeparator is a rune, it must be converted to string.
use File::Spec qw();
chomp $p, File::Spec->catdir('');
using System.IO;
p.TrimEnd(Path.DirectorySeparatorChar);
New implementation...
< > ⌨
programming-idioms.org 
sep := fmt.Sprintf("%c", filepath.Separator)
p = strings.TrimSuffix(p, sep)
sep := fmt.Sprintf("%c", os.PathSeparator)
p = strings.TrimSuffix(p, sep)
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);
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--);
if string.sub(p, -1, -1) == "/" then
	p=string.sub(p, 1, -2)
end
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);