如何使用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;