正则表达式高尔夫 : Cut off everything after the last "/"

Question

这个问题纯粹是装饰性的:

我想删除给定字符串的最后一个“/”之后的所有文本。所以如果输入是

mkdir -p $DEST/Users/Peter/Dropbox/Public/Vacation/P1000891.jpg

输出应该是

mkdir -p $DEST/Users/Peter/Dropbox/Public/Vacation/

(准确地说，最后一个“/”是否包含在输出中并不重要。)

我找到了多种方法，例如:

my @templist = split "/", 'mkdir -p $DEST/Users/Peter/Dropbox/Public/Vacation/P1000891.jpg';
print join "/", splice(@templist, 0, -1);

或者:

my ($a) = 'mkdir -p $DEST/Users/Peter/Dropbox/Public/Vacation/P1000891.jpg' =~ /(.*\/)+(?:[^\/]+)/;
print $a;

但我认为这应该只使用正则表达式就可以实现，也许可以使用搜索和替换？也许有前瞻性？

Answer 1

只需删除字符串末尾的所有非斜线字符:

s|[^/]+$||;

顺便说一下，前瞻是一种检查模式中稍后发生的事情的方法，而无需实际向前移动匹配位置。简单的匹配任务很少需要它，但不太清楚它是什么的人似乎过度使用了它。