如何在 Perl 中找到复制/粘贴（重复、克隆）代码？

Question

我已经在互联网上搜索了一段时间，但我无法找到任何免费（或便宜）的工具/实用程序/模块可以分析一组 Perl 文件（模块或脚本）并标记重复或克隆或复制/粘贴的代码。

我现在好多了，但我过去常常在各处复制和粘贴代码段。我想清理它并修复我的旧代码重复，但如果有一点工具帮助将不胜感激，这样我就不必仔细检查所有旧代码。另外，手动识别此类违规行为很容易出错。

Answer 1

我刚刚评估了 Simian。它有 15 天的免费评估期，单个用户许可证的费用为 100 美元。它并不正式支持 Perl，但它确实将它们视为纯文本并无论如何分析它们。这是一个超级快速的实用程序！而且超级容易使用。该工具生成的报告简单且易于解释。我完全认可这个工具。现在我只需要和我的老板谈谈并让他购买许可证。

Answer 2

这是另一个网页，列出了一些克隆检测工具：

http: //sel.ics.es.osaka-u.ac.jp/cdtools/index-e.html

Answer 3

有趣的是，几分钟前，一个类似问题被发布到了SO。

以下是一些您可能会觉得有用的工具的链接。

代码比较和抄袭检测

Answer 4

重复代码是什么意思？只是字符完全匹配或语义匹配。

有几种工具，例如 http://pmd.sourceforge.net/ 可以通过字符串匹配来检测重复代码，该工具适用于 java，但源匹配适用于纯文本。

如果你想要语义匹配，喜欢

sub A
{return 1;}

匹配

sub B
{
    return 1;
}

那么你需要别的东西:(

Answer 5

我过去曾使用 CCFinder 来查找重复的代码部分。它工作得很好，但有一个..有趣的界面。它没有对 perl 的本机支持，但它有一个纯文本选项，至少应该可以用于检测复制和粘贴。有一个 Windows 和 Ubuntu 解决方案 - 免费软件，不幸的是不是开源的。

Answer 6

Semantic Designs 推出了一款名为 Clone Dr. 的产品，该产品似乎能够分析大量数据克隆代码部分的语言类型。但他们的免费评估版似乎仅适用于 Java 和 Cobol。