Perl 正则表达式删除除最后一次出现之外的所有内容

Question

我正在尝试使用命令行“重命名”来更改一些包含多个句点的文件名。例如：this.is.a.file.name.txt

环顾四周后，我发现了一些几乎可以让我到达那里的示例，但我似乎无法让它按要求工作。不用说，我是一个非常熟悉正则表达式的初学者。

我试过了：

rename -v -n 's/\.(.+?)(?=\.)//' this.is.a.file.name.txt

结果如下：

this.a.file.name.txt

我尝试修改以下资源中的示例，但我被卡住了。 PHP Regex: Select all except last occurrence Regex not replacing the last occurrence of a match

Answer 1

由于几个原因，您的正则表达式不太正确。首先，您要替换空字符串的内容应该只是句点，而您正在从句点匹配下一个句点的所有内容并将其删除。而且，你只做一次。

你想要的正则表达式是/\.(?=.*\.)//g，它表示匹配一个句点，然后是任意数量的字符的零宽度断言和另一个句点，并尽可能多地这样做。