Question

perl语言 对程序文件操作 求助

情况是这样：我有一系列perl源程序，包含若干个子例程，现在我想把里面包含的一部分子例程单独提取出来成为一个模块，请问perl里面有实现这个功能的现成的函数或模块吗？如有请告知。

例子：源程序a.pl 中包含子例程 sub b,sub c,sub d，我想把这几个子例程源代码提取出来单独作为一个文件，原来所在的位置的代码删掉，如果遇到有相同名字的子例程就只删除原来的位置的代码而不生成新的文件。

不知道我有没有描述清楚，如有不明请提出。

Answer 1

开头加package a ...

追问

但是原来存在于多个源文件中的重复代码怎么删除呢？

追答

干嘛要删除呢，不用就好，用use a ：：sub；或者use FindBin qw(sub)；就好。

追问

为了移植方便后续团队开发和代码一致性……代码原来所在的地方是要使用这个模块的……

追答

那就写个脚本批量删除了！

追问

嗯，我之前也是这么想的，不过要删除的比较多，这样就要写很多个脚本来删除……所以才在这里提个问看有没有干这个事儿的模块。哎，现在估计也来不及了，最佳答案就选你吧~

Answer 2

坐等高手解答，帮顶