删除字符串中最后一个句点后的文本

Question

我有一个 grep困扰我的难题:我想删除字符串集合中最后一个句点之后的文本(我使用的是 R，因此 perl 语法可用)。

例如，假设字符串是 ABCD.txt此 grep会返回 ABCD ，如果文本是 abc.com.foo.bar ，它会返回 abc.com.foo .

非常感谢任何帮助(我认为我不能再喝咖啡了!)。

Answer 1

这里有几个解决方案:

sub("^(.*)[.].*", "\\1", "abc.com.foo.bar") # 1
## [1] "abc.com.foo"

library(tools)
file_path_sans_ext("abc.com.foo.bar") # 3
## [1] "abc.com.foo"

添加。关于您要求删除领先期的评论，最简单的方法是将其输入到上述任何一个中，其中 x是输入字符串:

sub("^[.]*", "", x)

要在一行中执行其中任何一项:

x <- c("abc.com.foo.bar", ".abc.com.foo.bar", ".vimrc")

sub("^[.]*(.*)[.]?.*$", "\\1", x) # 1a
## [1] "abc.com.foo.bar" "abc.com.foo.bar" "vimrc"          

file_path_sans_ext(sub("^[.]*", "", x))
## [1] "abc.com.foo" "abc.com.foo" "vimrc"