perl - 迁移 perl 模块

Question

假设我有一个 perl 模块 Foo::Bar，由 module-starter 启动，并且在命名空间 Foo::Bar 下已经有几个包，现在我得出结论，这是一个错误的名称选择，并想将其命名为 MyBetterName： ：酒吧。

是否有任何工具可以帮助自动化此过程，而无需替换所有模块、pod、测试和示例。我知道，我可以编写一个 perl 脚本来做到这一点，但假设这是我第一次编写 perl 模块并且不太清楚应该包含哪些文件。

我尝试了谷歌，但没有发现任何对我有帮助的东西

Answer 1

应该足以全局替换 Foo::Bar 和 Foo/Bar

find -type f -exec perl -i -pe's{Foo(::|-|/)Bar}{MyBetterName${1}Bar}g;' {} +

然后自己重​​命名文件

find -depth -execdir rename 's/Foo/MyBetterName/g' {} \;