perl - 迁移 perl 模块

Question

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

是否有任何工具可以帮助自动化此过程，而无需替换所有模块、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' {} \;