regex - 如何使用 perl 正则表达式修改长路径

Question

我试图制作一个perl将通过很长的目录路径的脚本\dir1\dir2\dir3\.....\dir99。

我曾经find走过那条路。

目录结构是这样的：

E:\work\important stuff\dir1

在我迭代之后它会经历dir2例如

E:\work\important stuff\dir1\dir2

我正在尝试编写一个regex将斜杠之间的内容替换为\ \名称的内容a。目的是使路径更短，以便我可以删除。

最后，路径将如下所示：

E:\work\important stuff\a\a\a\....\a. 

有任何想法吗 ？

Answer 1

编辑：抱歉，我没有将代码放在“代码字段”中。它错过了一个反斜杠。现在应该是正确的。

尝试这个？

$dir =~ s{[^\\]+}{a}g;