perl - 有没有一种工具可以自动从文件中提取常用子例程？

我在Perl中有两个1000多个行程序，每个程序在主文件中都有大约20个子例程。一个是从另一个分支中分离出来的，我想将公共部分分解掉(在向后移植功能之前。)是否有一个diff工具将子例程(和前面的注释)视为单元，并将公共单元提取到一个单元中。新文件？ (如果子例程的一行不同，则单位不匹配。)

如果有帮助，我的SCM当前为Subversion。一个处理代码的Perl脚本很酷。

最佳答案

您可以尝试使用PPI模块；据我所知，没有像您提到的那样可以进行重构的工具。